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Atmospheric  Tronsmittance/  Radiance: 
Computer  Code  LOWTRAN  6 
Supplement:  Program  Listings 


1.  INTRODUCTION 

This  supplement  contains  a  brief  description  of  the  program  structure  and  a 
complete  listing  of  the  FORTRAN  computer  code  for  LOWTRAN  6.  An  index 
identifying  the  location  of  each  subroutine  and  a  short  description  of  the  function  of 
each  subroutine  is  included. 

Section  3  contains  the  program  structure  and  complete  listing  of  the  LOWTRAN  6 
plot  program.  An  index  and  a  brief  description  of  each  subroutine  is  included. 

Section  4  contains  die  program  structure  and  complete  listing  of  the  LOWTRAN  6 
filter  function  program.  An  index  and  brief  description  of  each  subroutine  is  also 
included. 

The  technical  description  of  LOWTRAN  6  along  with  basic  user  instructions, 
sample  Input  and  output,  and  other  specialised  sections  are  detailed  in  the  main 
report. 

2.  LOWTRAN  6  PROGRAM  STRUCTURE 

The  three  programs  contained  in  this  supplement  adhere  principally  to  ANSI 
standard  FORTRAN  77.  The  major  exception  is  the  use  of  type  HOLLERITH 
instead  of  type  CHARACTER  for  character  data. 

(Received  for  publication  29  July  1993) 


Figure  1  depicts  the  LOUT RAN  code  structure.  The  NSMDL.  GEO,  SSGEO, 
and  TRANS  subroutines  are  shown  in  Figures  2,  3,  4,  and  5  respectively.  Table  1 
is  a  description  of  the  main  subroutines  in  LOWTRAN  shown  in  Figure  1.  Tables  2, 
3,  and  4  contain  descriptions  of  the  SSGEO,  GEO  and  TRANS  subroutines  re¬ 
spectively.  Table  5  has  descriptions  for  the  data  subroutines. 

The  page  number  location  for  each  subroutine  is  included  in  the  above  mentioned 
tables. 

The  complete  listing  of  the  LOWTRAN  6  computer  eode  is  in  Table  6. 


3.  LOWTRAN  PLOTi  PROGRAM  STRUCTURE 

The  plot  program  for  LOWTRAN  6  is  a  separate  program  package  available 
with  LOWTRAN  6.  The  plot  code  structure  is  shown  in  Figure  6.  Descriptions 
of  each  subroutine  and  page  number  location  are  shown  in  Table  7.  (See  Appendix  A 
<;f  the  main  LOWTRAN  6  report  for  possible  differences  in  system  plotting  routines. ) 
Table  8  is  the  complete  listing  of  the  LOWTRAN  6  plot  program, 

4.  FILTER  FUNCTION «  PROGRAM  STRUCTURE 

The  filter  function  program  is  an  independent  program  package  available  for 
use  on  LOWTRAN  G  Tape  7  output.  The  filler  function  eode  structure  is  shown  in 
Figure  7.  Descriptions  of  each  subroutine  ami  page  number  locution  are  listed  in 
T  able  9. 

Table  10  is  the  complete  listing  of  the  LOWTRAN  8  filter  function  program. 
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Figure  I.  LOWTRAN  6  Main  Program  Structure.  The  boxes  enclosed  by  dashes 
arc  modules  of  subroutines  for  the  calculation  of  non-standard  models,  air  mass 
geometry,  single  scattering  geometry  and  transmittance 


Figure  2.  Program  Structure  for  the  Non-standard  Model  Subroutines 


Figure  3.  Program  Structure  for  the  Air  Mass  Subroutines 


Figure  4.  Program  Structure  for  the  Single  Scattering  Geometry  Subroutines 


Figure  3,  Program  Structure  for  the  Transmittance  Subroutines.  The  'lashed  box 
labelled  Molecular  Attenuation  includes  the  following  subroutines:  ClDTA,  C2UTA, 
C3DTA.  C4UTA,  CflllTA,  SLF296.  SLF260,  FUN 29 6  and  HN03 


a 


Figure  6.  Plot  Program  Structure 


Figure  1.  Filter  Program  Structure 
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'I  able  1.  Description  of  LWTRN6  Subroutines 


Page 

No. 

LWTKN6 

MAIN  DRIVER  PROGRAM.  READS  CONTROL 

16 

CARDS. 

MARINE 

DETERMINES  AEROSOL  EXTINCTION  AND 

ABSORPTION  COEFFICIENTS  IX) R  THE  NAVY 
MARITIME  MODEL. 

92 

CIRRUS 

GENERATES  ALTITUDE  PROFILES  OF 

CIRRUS  CLOUD  DENSITY. 

89 

RANDOM 

CALLS  MACHINE  DEPENDENT  FUNCTION  RANF 
WHICH  IS  A  UNIFORM  RANDOM  NUMBER 
GENERATOR. 

91 

VSA 

ARMY  VERTICAL  STRUCTURE  ALGORITHM  OF 

AEROSOL  EXTINCTION  AND  RELATIVE  HUMIDITY 
FOR  LOW  VISIBILITY /LOW  CEILING  CONDITIONS. 

9? 

NSMDL 

FOR  USER  DEFINED  ATMOSPHERIC  OR  AEROSOL 

PROFILES. 

33 

LAY VSA 

RESTRUCTURES  THE  ATMOSPHERIC  PROFILE 

FOR  FINER  LAYERING  NEAR  THE  GROUND  FOR 
USE  WITH  THE  VSA  OPTION. 

94 

RDNSM 

READS  MODEL  7  DATA  FOR  ARMY  VERTICAL 

ST  R  UCT  U  R  E  A  LOO  HIT  HM . 

96 

SUBSOL 

CALCULATES  THE  SUBSOLAR  POINT  ANGLES 

BASED  UPON  TIME  AND  DAY. 

84 

ST  DM  DC 

SETS  UP  ATMOSPHERIC  PROFILES  OF 

ATTENUATOR  DENSITIES. 

w 

Jf 

AERPRF 

COMPUTES  SCALING  FACTOR  PROFILES 

FOR  AEROSOLS. 

•99 

GEO 

DRIVER  FOR  AIR  MASS  SUBROUTINES. 

CALCULATES  ATTENUATOR  AMOUNTS  FOR 

THE  SLANT  PATH. 

•4  i 

SSGEO 

OBTAINS  ATT  ENUATOR  AMOUNTS  FROM 

SCATTERING  POINTS  ALONG  OPTICAL  PATH 

TO  THE  EXTRATERRESTRIAL  SOURCE. 

73 

liXAtitN 

LOA  DS  A  E  ROSO  l.  E  XT  IUCT  ION  A  NO  A  KSO R  PT10N 

COEFFICIENTS  FOR  THE  APPROPRIATE  MODEL 
AND  RELATIVE  HUMIDITY. 

70 

TRANS 

CALCULATES  TRANSMITTANCE,  ATMOSPHERIC 

RADIANCE.  AND  SOLARS  LUNAR  SCATTERED 
RADIANCE  FOR  SLANT  PATH. 

fil 

10 


Table  2.  Description  of  SSGEO  Subroutines 


Page 

No. 

SSGEO 

OBTAINS  ATTENUATOR  AMOUNTS  FROM 
SCATTERING  POINTS  ALONG  OPTICAL  PATH 

TO  THE  EXTRATERRESTRIAL  SOURCE. 

73 

PSIDEL 

CALCULATES  THE  RELATIVE  AZIMUTH 
BETWEEN  THE  LINE  OF  SIGHT  AND  THE 

DIRECT  SOLAR /LUNAR  PATH. 

77 

PSI 

RETURNS  SOLAR  AZIMUTH  RELATIVE  TO 

LINE  OF  SIGHT  AT  CURRENT  SCATTERING 
LOCATION. 

79 

DEL 

RETURNS  SOLAR  ZENITH  ANGLE  AT  ANY 

POINT  ALONG  OPTICAL  PATH. 

80 

GEO 

DRIVER  FOR  AIR  MASS  SUBROUTINES. 
CALCULATES  ATTENUATOR  AMOUNTS  FOR 

THE  SLANT  PATH. 

41 

SCTANG 

RETURNS  THE  SCATTERING  ANGLE  AT  ANY 
POINT  ALONG  THE  OPTICAL  PATH. 

78 

Table  3.  Description  of  Air  Mass  Subioutines 


Page 

No. 


GEO 

GEOINP 

FNDHMN 

REDUCE 

FDBETA 

RFPATH 

FILL 

LAVE.: 

I RADREF 
FINDSH 
SCALHT 
AN  DEX 
EXPINT 


DRIVER  FOR  AIR  MASS  SUBROUTINES. 

CALCULATES  ATTENUATOR  AMOUNTS  FOR 

THE  SLANT  PATH.  41 

INTERPRETS  GEOMETRY  INPUT  PARAMETERS 
INTO  THE  STANDARD  FORM  HI.  H2.  ANGLE. 

AND  LEN.  45 

CALCULATES  HMIN,  THE  MINIMUM  ALTITUDE 

ALONG  THE  PATH  AND  PHI.  THE  ZENITH 

ANGLE  AT  H2.  51 

ELIMINATES  SLANT  PATH  SEGMENTS  WHICH 
EXTEND  BEYOND  THE  HIGHEST  PROFILE 
ALTITUDE.  48 

CALCULATES  ANGLE.  GIVEN  HI.  H2  AND 

BETA  BY  ITERATION.  49 

DETERMINES  THE  REFRACTED  PATH  AND 
THE  ABSORBER  AMOUNTS  THROUGH  ALL  THE 
LAYERS.  54 

DEFINES  THE  BOUNDARIES  OF  THE  SLANT 

PATH  AND  INTERPOLATES  DENSITIES  AT 

THESE  BOUNDARIES.  57 

CALCULATES  THE  PATH  AND  AMOUNTS 

THROUGH  ONE  LAYER.  58 

COMPUTES  RADIUS  OF  CURVATURE  OF  THE 
REFRACTED  RAY  FOR  A  HORIZONTAL  PATH.  53 

FINDS  LAYER  BOUNDARIES  AND  SCALE  HEIGHT 
AT  GROUND  FOR  INDEX  OF  REFRACTION.  53 

CALCULATES  SCALE  HEIGHT  OF  INDEX  OF 
REFRACTION.  53 

COMPUTES  INDEX  OF  REFRACTION  AT  A 

SPECIFIC  HEIGHT.  53 

PERFORMS  EXPONENTIAL  INTERPOLATIONS 

FOR  THE  GEOMETRY  ROUTINES.  51 


Table  4.  Description  of  TRANS  Subroutines 


Page 

No. 

TRANS 

CALCULATES  TRANSMITTANCE,  ATMOSPHERIC 

i 

: 

RADIANCE,  AND  SOLAR/ LUNAR  SCATTERED 
RADIANCE  FOR  SLANT  PATH. 

61 

1 

AEREXT 

INTERPOLATES  AEROSOL  ATTENUATION 

COEFFICIENTS  TO  REQUIRED  WAVENUMBER. 

72 

HN03 

DETERMINES  NITRIC  ACID  ABSORPTION 

COEFFICIENT  TO  REQUIRED  WAVENUMBER. 

72 

TRANFN 

CALCULATES  TRANSMITTANCE  FOR  OZONE, 

UNIFORMLY  MIXED  GASES  AND  WATER  VAPOR. 

68 

SOURCE 

CONTAINS  SOLAR  INTENSITY  DATA  AND 

CALCULATES  LUNAR  INTENSITY. 

82 

TN  RAIN 

CALCULATES  TRANSMITTANCE  OF  RAIN  AS 

A  FUNCTION  OF  RAIN  RATE  AND  SLANT  RANGE. 

88 

SSRAD 

PERFORMS  THE  LAYER  BY  LAYER  SINGLE 

SCATTERING  RADIANCE  SUM. 

81 

PHASER 

CHOOSES  CORRECT  PHASE  FUNCTION  BASED 

ON  RELATIVE  HUMIDITY,  FREQUENCY, 
SCATTERING  ANGLE  AND  MODEL. 

85 

INTER? 

PERFORMS  LINEAR  OR  LOGARITHMIC 
INTERPOLATION. 

88 

PF 

RETURNS  THE  APPROPRIATE  PHASE  FUNCTION 
FROM  THE  STORED  DATA  BASE. 

88 

C 

IDT  A 

RETURNS  WAVER  VAPOR  BAND  ABSORPTION 
COEFFICIENT  AT  REQUIRED  WAVENUMBER. 

67 

C2DTA 

RETURNS  UNIFORMLY  MIXED  GASES 

ABSORPTION  COEFFICIENT  AT  REQUIRED 
WAVENUMBER. 

67 

C3DTA 

RETURNS  OZONE  BAND  ABSORPTION 

COEFFICIENT  AT  REQUIRED  WAVENUMBER. 

67 

C4DTA 

RETURNS  No  CONTINUUM  ABSORPTION 

i 

1 

COEFFICIENT  AT  REQUIRED  WAVENUMBER. 

68 

CUDTA 

RETURNS  MOLECULAR  SCATTERING  ATTENUA  ■ 

TION  COEFFICIENT  AT  REQUIRED  WAVENUMBER. 

68 

CUDTA 

RETURNS  OZONE  U.V.  AND  VISIBLE  ABSOKl’TION 

COEFFICIENT  AT  REQUIRED  WAVENUMBER. 

68 

8LF236 

LOADS  SELF  BROADENED  WATER  VAPOR 

CONTINUUM  AT  206*  K. 

69 

SLF260 

LOADS  SELF  BROADENED  WATER  VAPOR 

CONTINUUM  AT  280*  K. 

69 

1  FKN29G 

LOADS  FOREIGN  BROADENED  WATER  VAPOR 

CONTINUUM  AT  238* K. 

69 

SINT 

PERFORMS  INTERPOLATION  FOR  WATER  VAPOR 
CONTINUUM. 

69 

IS 


Table  5.  Description  of  Block  Data  Subroutines 


m 

M 


n 


Page 

No. 

MDTA 

MODEL  ATMOSPHERIC  DATA. 

102 

TITLE 

TITLES  FOR  OUTPUT. 

105 

PRFDTA 

AEROSOL  PROFILE  DATA. 

106 

EXTDTA 

AEROSOL  EXTINCTION  AND  ABSORPTION  DATA. 

108 

SF298 

SELF  BROADENED  ABSORPTION  COEFFICIENTS 
FOR  WATER  VAPOR  CONTINUUM  AT  296°  K. 

114 

SF260 

SELF  BROADENED  ABSORPTION  COEFFICIENTS 
FOR  WATER  VAPOR  CONTINUUM  AT  260°  K. 

122 

BFH20 

FOREIGN  BROADENED  ABSORPTION 
COEFFICIENTS  FOR  WATER  VAPOR  CONTINUUM 
AT  296°  K. 

130 

TRFN 

LOWTRAN  TRANSMITTANCE  FUNCTIONS. 

138 

C  ID 

WATER  VAPOR  BAND  MODEL  ABSORPTION 
COEFFICIENTS. 

139 

C2D 

UNIFORMLY  MIXED  GASES  BAND  MODEL 
ABSORPTION  COEFFICIENTS. 

144 

C3D 

OZONE  BAND  MODEL  ABSORPTION 

COEFFICIENTS. 

147 

C4D 

NITROGEN  CONTINUUM  ABSORPTION 
COEFFICIENTS  AND  UV  OZONE  ABSORPTION 
COEFFICIENTS. 

148 

M A RUT A 

NAVY  MAFINE  AEROSOL  EXTINCTION  AND 
ABSORPTION  DATA. 

149 

PHSDTA 

70  AVERAGED  PHASE  FUNCTIONS  AND  TRUTH 
TABLE  IDENTIFYING  CORRECT  PHASE 

FUNCTION. 

153 

Table  6.  Listing  of  Computer  Code  LQWTRAN  6 


Pages  15  to  163 


c* 

PROGRAM  LWTRN6 

LWT 

100 

PROGRAM  LWTRN6( INPUT* 1 40 , OUTPUT»1 40, TAPE7* 140, TAPE5* INPUT, 

LWT 

105 

1  TAPE8.0UTPUT) 

LWT 

110 

c 

LWT 

1T5 

c**« 

»LWT 

130 

c 

L0WTRAN6  (LAST  REVISED  JUNE,  1963) 

LWT 

135 

c 

LWT 

130 

c 

AUTHORS 

LWT 

135 

n 

F.X.KNEIZYS 

LWT 

140 

c 

E.  P.  SHETTLE 

LWT 

145 

c 

W.  0.  gallery 

LWT, 

150 

c 

J.  H.  CHETWYNO  JR. 

LWT' 

155 

c 

L.  W.  ASREU 

LWT 

teo 

c 

J.  E.  A.  SELBY 

LWT 

165 

c 

S.  A.  CLOUGH 

LWT 

170 

c 

R.  W.  FENN 

LWT 

175 

c 

LWT 

180 

c 

PROGRAM  LOWTRAN  CALCULATES  THE  TRANSMITTANCE  AND/OR  RADIANCE 

LWT 

185 

c 

OF  THE  ATMOSPHERE  FROM  350  CM-1  TO  40000  CM-1  (0.J5  TO  38.5? 

LWT 

190 

c 

MICRONS  J  AT  30  CM-1  SPECTRAL  RESOLUTION  ON  A  LINEAR 

LWT 

19S 

c 

WAVENUMBER  SCALE. 

LWT 

300 

c 

LWT 

305 

c 

OETAI LEO  MODEL  AND  PROGRAM  DESCRIPTION  CAN  BE  FOUND  IN 

LWT 

310 

c 

KNEI2YS,  F.  X., SHETTLE,  E.  P.  .GALLERY,  W.  O..CHETWYND,  J. 

H. , 

LWT 

315 

c 

A8REU ,  L.  W..  SELBY,  J.  E.  A.,  CLOUGH,  S.  A.,  FENN,  R.  W. 

LWT 

330 

c 

(1983)  ATMOSPHERIC  TRANSMITTANCE/RADIANCE-  COMPUTER  CODE 

LWT 

335 

c 

LOWTRAN  6 

LWT 

230 

c 

AFGL  TECHNICAL  REPORT  (IN  PREPARATION) 

LWT 

235 

c 

LWT 

245 

c 

THE  FOU.UWINQ  CARDS  SHOULD  BE  KEYPUNCHED  BY  THE  USER 

LWT 

350 

c 

AND  WAKED  TO  F  .  X.KNE  12YS,  AFGL/OPI ,  HANSCQM  AFB.MASS  01731 

LWT 

355 

c 

THE  CARDS  WILL  8F  USED  TO  UPDATE  THE  AFGL  MALING  LIST 

LWT 

360 

c 

AND  FOR  NOTIFICATION  TO  THE  USER  OF  ERRORS  IN  THE  COOE 

LWT 

365 

c 

LWT 

370 

c 

LWT 

275 

c 

(USE  COLUMNS  31  TO  73) 

LWT 

seo 

c 

iOWIG  NAME 

LWT 

285 

c 

LOW  re  COMPANY 

LWT 

390 

c 

LOW TO  ADDRESS 

LWT 

295 

c 

LWT 

300 

c 

LWT 

305 

c 

PROGRAM  ACTIVATED  BY  SUBMISSION  OF  FIVE  (OR  MORE) 

Lwr 

310 

315 

c 

CARD  3C3UENCE  AS  FOLLOWS 

LWT 

330 

c 

LWT 

335 

c 

CARO  1  MODEL, ITVPE, IEMSCT ,M1 ,M2,M3, IM.NOPRT ,T8OUN0,SALB 

LWT 

330 

c 

FORMAT (8IS.3F10.3) 

LWT 

33S 

c 

LWT 

340 

c 

CARO  3  IHA2E . t SE*SN , 1 VULCN, ICS7 L , I CIR , IVSA, ViS,NSS, WHH, RAINRT 

LWT 

345 

FORMAT!  GIB, 4F10. 3) 

LWT 

350 

c 

LWT 

365 

c 

CANO  « A  CTHIK.CALT.JSEEO  (ICIft.l) 

LWT 

360 

c 

FORUAT( 3F 10 .3 . 110) 

LWT 

365 

c 

LWT 

370 

c 

CARO  SB  2CV5A.ZTVSA.2INVSA  (IVSA.1) 

LWT 

375 

c 

FORMAT ( 3F10 . 3) 

LWT 

390 

c 

LWT 

395 

c 

CARO  3C  ML. TITLE  (L100CL*7,  IM*1 ) 

LWT 

390 

16 
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FORMAT ( I5.18A4) 


CARO  3 


CARO  4 
CARO  S 


CARO  1 


MOOEL-O 

1 

2 

3 

4 

5 

e 

7 


ITYPE-' 

a 

3 


FORMAT) 15,1 8A4)  LWT 

LWT 

CARO  2C  (?  TO  ML)  Z,P ,T,DP, RH.WH.wO, AHAZE.VIS1 , THAI , ISELWT 
FORMAT) 3F10. 3, 2F5.1 , 3E10. 3 , F7 .3,311 )  LWT 

LWT 
LWT 
LWT 
LWT 
LWT 
LWT 
LWT 
LWT 


CARO  20  (1  TO  10)(0UMMY,eXTC(1,I),ABSC(1.l),I-1,40) 

FORMAT (4(F6.2,2F7.5))  (IHAZE-7) 


HI  ,H2 , ANGLE , RANGE , BETA , RQ , LEN 


CARD  3*  HI ,P,T,DP,RH,WH, WO, RANGE 

FORMATOFtO.a.GFS.I.aEIO.a.FIO.S) 


FORMAT) 6F1 0.3. 15) 

(MOOEL-O) 


LWT 

CARO  3A1  IPARM, IPH, XdAY . XSQURC  (IEMSCT.2)  LWT 

F0RMAT(4I5)  LWT 

LWT 

CARD  3*2  pARMI , PARM2 , PARM3 ,PARM4, TIME , PSI PO, ANGLEM.G  LWT 

FORMAT(8F10.3)  (IEMSCT-2)  LWT 

LWT 

CARD  3B1  NANGLS  (IPH-i)  LWT 

FORMAT) 15)  LWT 

LWT 

CARO  3BJ(1  TO  NANGLS)  (IPH-1)  LWT 

(ANGF(I).F(1.I),F(2.1).F(3.l).F(4,l),l«1,NAN0L$>  LWT 

FORMAT) F LO. 3 .4E1 0*3)  LWT 

LWT 

VI,  V2.  OV  FORMAT(3FIO,3)  LWT 

LWT 

1RPT  FORMAT) 15)  LWT 

LWT 

>••••«*«•.*•  •  —  »  — —  *«*«•*«•.  *— --LWT 

LWT 

MODEL .  TYPE ,  t  EMSCT  , Ml  ,M2  ,M3 , 1M.  NOPRT  ,  T BOUND, SALB  LWT 

FORMAT (BI5.2F1Q.3)  LWT 

LWT 

MODEL  SELECTS  ONE  OF  SIX  GEOGRAPHICAL  MODEL  ATMOSPHERES  LWT 

OR  SPECIFIES  THAT  USEA-OEFINEO  METEROLQGICAL  LWT 

DATA  ARE  TO  BE  USED.  LWT 

LWT 

LWT 

IF  METEOROLOGICAL  DATA  ARE  SPECIFIEO(HORIZONTAL  PATH  ONLVLWT 
TROPICAL  ATMOSPHERE  LWT 

MIOLATITUOE  SUMMER  I.WT 

MIOLATI TUOE  WINTER  LWT 

SUBART  I C  SUMMER  LWT 

SUOARTIC  WINTER  LWT 

1062  U.5.  STANDARD  ATMOSPHERE  LWT 

IF  A  NEW  MODEL  ATMOSPHERE)  OR  RADIOSONDE  DATA)  IS  TO  BE  INLWT 

LWT 

LWT 

!TVP£  INDICATES  THE  TYPE  OF  ATMqspmERIC  PATH  LWT 

LWT 

FOR  A  HORIZONTAL  (CONSTANT-PRESSURE)  PATH  LWT 

VERTICAL  OR  SLANT  PATH  BETWEEN  TWO  ALTITUDES  .  LWT 

FOR  A  VERTICAL  PATH  TO  SPACE  LWT 

LWT 

LWT 

l eusct  determines  the  mode  of  execution  of  the  program  lwt 

LWT 


395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

650 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 

609 

610 
615 
620 
625 
630 
035 
040 
645 
650 
655 
850 
665 
670 
875 
880 
MS 


ooDooonoooonoooooonoofJCooooofionoonononooooooooononnoooonoon 


IEMSCT<0  PROGRAM  EXECUTION  IN  TRANSMITTANCE  MODE.  LWT 

1  PROGRAM  EXECUTION  IN  RADIANCE  MODE.  LWT 

2  PROGRAM  EXECUTION  IN  RAOIANCE  MODE  WITH  SOUR/LUNAR  LWT 

SCATTERED  RAOIANCE  INCLUDED.  LWT 

LWT 

LWT 

Ml, M2, M3  ARE  USED  TO  MODIFY  OR  SUPPLEMENT  THE  ALTITUDE  LWT 
PROFILES  OF  TEMPERATURE  ANO  PRESSURE, WATER  VAPOR, AND  OZONELWT 


M1<M2<M3<0  FOR  NORMAL  OPERATION  OF  PROGRAM 

Ml < 1  TROPICAL  TEMPERATURE  AND  PRESSURE  PROFILES 

2  MIDLATITUDE  SUMMER . TEMPERATURE  AND  PRESSURE  PROFILES 


6  1962  U.S.  STANDARD  TEMPERATURE  ANO  PRESSURE  PROFILES 

M2<1  TROPICAL  WATER  VAPOR  PROFILE 

2  MIDLATITUDE  SUMMER  WATER  VAPOR  PROFILE 


6  1962  U.S.  STANDARD  WATER  VAPOR  PROFILE 

M3<1  TROPICAL  OZONE  PROFILE 

2  MIDLATITUDE  SUMMER  OZONE  PROFILE 


6  1962  U.S.  STANDARD  OZONE  PROFILE 

!M<0  FOR  NORMAL  OPERATION  OF  PROGRAM  OR  WHEN  SUBSEQUENT 
CALCULATIONS  ARE  TO  BE  RUN  WITH  MODEL  <7 
1  WHEN  RADIOSONDE  DATA  ARE  TO  BE  READ  INITIALLY. 

NOPRT<0  FOR  NORMAL  OPERATION  OF  PROGRAM, 

1  TO  SUPRESS  PRINTING  OF  TRANSMITTANCE  /OR  RADIANCE  TABLE 
AND  ATMOSPHERIC  PROFILES 

TSOUND  USEO  IN  RAOIANCE  MODE  FOR  SLANT  PATHS  WHICH 
INTERSECT  THE  EARTH.  IF  TBOUNO  IS  LEFT  BLANK. 

THE  PROGRAM  WILL  USE  THE  TEMPERATURE  OF  THE  FIRST 
ATMOSPHERIC  LAVER  AS  THE  BOUNDARY  TEMPERATURE 

TBOUNO  <T£UPERATURE  OF  THE  EARTH  AT  THE  LOCATION  AT  WHICH  THE 
CALCULATION  IS  TO  BE  PERFORMED. 

SALB  <  SURFACC  ALBEDO  OF  THE  EARTH  AT  THE  LOCATION 

AND  AVERAGE  FRFQUENCY  OF  THE  CALCULATION  (0  TO  1.) 

IF  SALB  IS  LEFT  BLANK  THE  PROGRAM  ASSUMES 
THE  SURFACE  IS  A  BLACKBOOV. 


CARD  a  I HAZE, ISCASN, IVUlCN, ICSTL, ICIR, !V$A,VtS,WSS,WHH,RAtNRT 
F0RUAT(6IB,4F10.3) 

I HAZE  SELECTS  THE  TYPE  Of  EXTINCTION  AND  A  DEFAULT 
MEUROLOOIACL  RANGE  FOR  THE  BOUNDS Y- LAYER  AEROSOL  MODEL 


LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LMT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 


690 

695 

700 

705 

710 

715 

720 

725 

730 

735 

740 

745 

750 

755 

760 

765 

770 

775 

7B0 

785 

790 

795 

800 

BOS 

810 

815 

820 

B25 

830 

835 

840 

845 

850 

855 

860 

865 

870 

875 

880 

885 

890 

839 

BOO 

909 

910 
915 
920 
925 
930 
935 
940 
945 
990 

959 

960 

969 

970 
975 
980 
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(0  TO  2KM  ALTITUDE)  LWT 

IF  VIS  IS  ALSO  SPECIFIED  on  CARD  2  IT  WILL  OVERRIDE  THE  LWT 
DEFAULT  IHAZE  value  LWT 

LWT 

IHAZEa0  NO  AEROSOL  ATTENUATION  INCLUDED  IN  CALCULATION.  LWT 

«1  RURAL  EXTINCTION,  23-KM  VIS.  LWT 

=2  RURAL  EXTINCTION,  5-KM  VIS.  LWT 

»3  NAW  MARITIME  EXTINCTION, SETS  OWN  VIS.  LWT 

-4  MARITIME  EXTINCTION,  23-KM  VIS.  ( LOWTRAN  5  MODEL)  LWT 
»5  URBAN  EXTINCTION,  5-KM  VIS.  LWT 

•6  TROPOSPHERIC  EXTINCTION,  50-KM  VIS.  LWT 

*7  USER  DEFINED  (TEN  CARDS)  LWT 

■8  FOGI  (AOVECTION  FOG)  EXTINCTION,  0.2-KM  VIS.  LWT 

■9  F0G2  (RADIATION  FOG)  EXTINCTION.  0.5-KM  VIS.  LWT 

LWT 

ISEASN  SELECTS  THE  SEASONAL  DEPENDENCE  OF  THE  PROFILES  LWT 
FOR  BOTH  THE  TROPOSPHERIC  ,1  TO  10  KM)  AND  LWT 

STRATOSPHERIC  10  TO  30  KM)  AEROSOLS.  LW  f 

LWT 

ISEASN.O  OEFAULTS  TO  SEASON  OF  MODEL  LWT 

(MODEL  0,1. 2. 4, 6, 7)  SUMMER  LWT 

(MOOEL  3.5)  WINTER  LWT 

■1  SPRING-SUMMER  LWT 

•2  FALL  -  WINTER  LWT 

LWT 

IVULCN  SELECTS  BOTH  THE  PROFILE  ANO  EXTINCTION  TYPE  LWT 

FOR  THE  STRATOSPHERIC  AEROSOLS  ANO  DETERMINES  TRANSITION  LWT 
PROFILES  ABOVE  THE  STRATOSPHERE  TO  100  KM.  LWT 

LWT 

IVULCN«0  OEFAULT  TO  STRATOSPHERIC  BACKGROUND  LWT 

•t  STRATOSPHERIC  BACKGROUND  LWT 

<■2  AGED  VOLCANIC  TYPE/MODERATE  VOLCANIC  PROFILE  LWT 

•3  FRESH  VOLCANIC  TYPE/HIGH  VOLCANIC  PROFILE  LWT 

•4  AGED  VOLCANIC  TYPE/HIGH  VOLCANIC  PROFILE  LWT 

■5  FRESH  VOLCANIC  TYPE/MQDERATE  VOLCANIC  PROFILE  LWT 

LNT 

ICSTL  IS  THE  AIR  MASS  CHARATER(1  TO  10)  ONLY  USED  WITH  LWT 
NAVY  MARITIME  MOOEL( 1HAZE.3)  LWT 

LWT 

ICSTL  •  1  OPEN  OCEAN  LWT 

.  LWT 

.  LWT 

IWT 

10  STRONG  CONTINENTAL  INFLUENCE  IWt 

LWT 

IClfl  DETERMINES  THE  INCLUSION  OF  CIRRUS  CLOUD  ATTENUATIONLWT 

LWT 

ICIR'O  NO  CIRRUS  LNT 

»1  USE  CIRRUS  PROFILE  LWT 

LWT 

I  VS A  DETERMINES  THE  USE  OF  THE  ARMY  VERTICAL  STRUCTURE  LWT 
ALGORITHM  FOR  AEROSOLS  IN  THE  BOUNOaRV  LAVER.  LWT 

IV$A«0  NOT  USED  LWT 

•1  VERTICAL  STRUCTURE  ALGORITHM  LWT 

LWT 

ViS  ■  METEROLOOICAL  RANGE  (KM)  (WHEN  SPECIE l EO, SUPERSEDES  LWT 

OEFAULT  VALUE  SET  BY  l HAZE)  LWT 

LWT 

WSS  >  CURRENT  WING  SPEEO  (M/S).  ONLY  WITH  (IHA2E«3)  LWT 


985 

990 

995 

1000 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

10BO 

1085 

1090 

1095 

1100 

1105 

1110 

1115 

1120 

1125 

1130 

1135 

1140 

1145 

1150 

1155 

1180 

1155 

1170 

1179 

1180 
1185 
1 190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1200 
1209 
1270 
137B 
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C  WHH  *  24  HOUR  AVERAGE  WIND  SPEED  (M/S).  ONLY  WITH  (IHAZE.3)  LWT  1280 


C  LWT  1 285 
C  RAINST  •  rain  rate  (MM/HR).  DEFAULT  VALUE  IS  2ERO.  LWT  1290 
C  LWT  1295 
C<****«** lwt  1300 
C  LWT  1305 
C  OPTIONAL  INPUT  CARDS  AFTER  CARD  2  LWT  1310 
C  SELECTED  BY  PARAMETERS  IC1R, IVSA, MODEL. AND  I HAZE  ON  CARD  1  AND  2.  LWT  1315 
c  LWT  1320 
c  LWT  1325 
C  CARD  2A  CTHIK.CALT, ISEED  (ICIR-1)  LWT  1330 
C  FORMAT(2F10.3,I10)  LWT  1335 
C  INPUT  CARD  FOR  CIRRUS  ALTITUDE  PROFILE  LWT  1340 
C  SUBROUTINE  WHEN  ICIR  *  1.  LWT  1345 
c  LWT  1350 
C  CHTIK  •  CIRRUS  THICKNESS  (KM)  LWT  1355 
C  0  USE  THICKNESS  STATISTICS  LWT  1360 
C  .NE.  0  USE  DEFINED  THICKNESS  LWT  1365 
C  CALT  «  CIRRUS  BASE  ALTITUOE(KM)  LWT  1370 
C  0  USE  CALCULATED  VALUE  LWT  1375 
C  .NE.  0  USE  DEFINED  BASE  ALTITUDE  LWT  1380 
C  LWT  1385 
C  ISEED  *  RANDOM  NUMBER  INITIALIZATION  FLAG.  LWT  1390 
C  0  USE  OEFAULT  MEAN  VALUES  FOR  CIRRUS  LWT  1395 
C  .NE.  0  INITIAL  VALUE  OF  SEED  FOR  RANF  FUNCTION  LWT  1400 
C  LWT  1405 
C  LWT  1410 

. . . . .  1415 

C  LWT  1420 
C  CARO  26  2CVSA.ZTVSA.ZINVSA  (IVSA.1)  LWT  1425 
C  FORMAT( 3F1 0.3)  LWT  1430 
C  INPUT  CARO  FOR  ARMY  VERTICAL  STRUCTURE  LWT  1435 
C  ALGORITHM  SUBROUTINE  WHEN  1VSA.1,  LWT  1440 
C  LWT  1445 
C  ZCVSA  •  CLOUD  CEILING  HEIGHT  (KM)  *0  UNKNOWN  HEIGHT  LWT  1450 
C  ZCVSA  LT  0  NO  CLOUO  CEILING  LWT  1455 
C  ZCVSA  GT  0  KNOWN  CLOUD  CEILING  LWT  1460 
C  ZCVSA  •  0  UNKNOWN  CLOUD  CEILING  HEIGHT  LWT  1465 
C  PROGRAM  CALCULATES  CLOUD  HEIGHT  LWT  1470 
C  LWT  1 47B 
C  2TVSA  •  THICKNESS  OF  CLOUO  DR  FOG  (KM) ,  LWT  1400 
C  THICKNESS  .  0  OEFAULT S  TO  200  METERS  LWT  1485 
C  LWT  1490 
C  ZINVSA.  HEIGHT  OF  TNe  INVERSION  («M)  LWT  1499 
C  •  0  DEFAULTS  TO  100  METERS  LWT  1500 
C  LT  0  NO  INVERSION  LAYER  LWT  1503 
C  LWT  1510 

. . . . * . * . . . .  1515 

c  LWT  1320 
C  CARO  2C  ML. TITLE  tMOOEl.T, IM«1 )  LWT  1925 
C  FORMAT u 5. 1BA4)  LWT  1630 
C  ADDITIONAL  ATMOSPHERIC  MODEL  (HOOEL»‘<  )  LWT  1535 
C  NEW  MODEL  ATMOSPHERE  CAN  BE  INSERTED  PROVIDED  THE  LWT  1540 
C  PARAMETERS  MODEL  AND  IM  ARE  SET  EQUAL  TO  7  ANO  I  LWT  1545 
€  RESPECTIVELY  ON  CARD  1.  LWT  1990 
0  LWT  1955 
C  ML*  NUMBER  OF  ATMOSPHERIC  LEVELS  tO  IE  INSERTED  LWT  1810 
C  (MAXIMUM  OF  34)  LWT  1589 
C  LWT  1570 


OOOUOOOOOU  UOU  OOUU  OOO  O  U  O  O  UUUO  CJOO  uuuu  uouuoouuuououuuooooouooo 


title* 

IDENTIFICATION  OF  NEW  MODEL  ATMOSPHERE 

CARO  2C 

(1  TO  ME) 

Z. P.T, DP, RH.WH, WO , AHAZE, V IS1 , IHAl , ISEAI .IVUL1 

FORMAT (3F10.3,2F5.1,3E10.3,F7.3,3X1) 

z  • 

ALTITUDE  OF  LAYER  (KM) 

p  • 

PRESSURE  AT  LAYER  (MB) 

T  . 

TEMPERATURE  (C) 

DP  * 

DEW  POINT  (C) 

RH  * 

RELITIVE  HUMIDTY  PERCENT 

WH  • 

WATER  DENSITY  (GM/M3) 

WO  > 

OZONE  DENSITY  ( GM/M3 ) 

AMAZE* 

AEROSOL  NUMBER  DENSITY(NORMALIZED  BY  THE  USER  TO  THE 
REQUIRED  METEOROLOGICAL  RANGE  USING  THE  LOWTRAN 
EXTINCTION  COEFFICIENTS) 

HIT  1575 
LWT  1580 
LWT  1585 
LWT  1590 
LWT  1595 
LWT  1600 
LWT  1605 
UT  1610 
LWT  1615 
LWT  1820 
LWT  1625 
LWT  1630 
LWT  1635 
LWT  1640 
LWT  1645 
LWT  1650 
LWT  1655 


VIS1  »  METEOROLOGICAL  RANGE  (KM)  FOR  ALTITUDE, Z 
IHAl  •  AEROSOL  EXTINCTION  AND  METEOROLOGICAL  RANGE  CONTROL 
FOR  THE  ALTITUDE, Z 

ISEAI  •  AEROSOL  SEASON  CONTROL  FOR  THE  ALTITUDE, Z 

IVliLI  «  AEROSOL  PROFILE  AND  EXTINCTION  CONTROL  FOR  ALTITUDE, Z 


CAPO  20  (0uMMV,EXTC(1,I),AaSC(1,I),l.1.40)(iHAZE»7) 
FORMAT (4(F6.2,2F7.S) ) 

USER  DEFINED  AEROSOL  EXTINCTION  AND  A8S0RPT ION 
COEFFICIENTS  WHEN  IhAZE  •  7  ON  CARD  2. 

dummy  «  WAVELENGTH  of  aerosol  coefficient 

(NOT  USED  BY  PROGRAM  BUT  CORRESPONDING  TO 
WAVELENGTHS  DEFINED  IN  ARRAY  VX2 
IN  SUBROUTINE  EXTDA) 

EXTC( 1 , I )  .  AEROSOL  EXTINCTION  COEFFICIENT 
A0SC(1,I)  •  AEROSOL  ABSORPTION  COEFFICIENT 


CAROS  HI ,H2. ANGLE. RANGE, SETA, RO.LEN  FORMAT (8F  tO , 3,15) 

USED  TO  DEFINE  the  GEOMETRICAL  PATH  PARAMETERS  FOR  A  GIVEN 
problem. 

HI  »  INITIAL  ALTITUQEOMJt 
H2  •  FINAL  ALUTUDE(KM) 

IN  THE  RADIANCE  MODE  OF  THE  PROGRAM  EXECUTION 
Ml,  THE  INITIAL  ALTITUDE, ALWAYS  DEFINES  THE  POSITION  OF 
THE  OBSERVER  (OR  SENSOR). 

ANGLE  -INITIAL  ZENITH  ANGLE  (DEGREES)  AS  USASURCO  FROM  HI 
RANGE  -PATH  LENGTH  IHL1) 

beta  -earth  center  ancle  Subtended  by  hi  and  m2  (degrees) 


RO  • 


RADIUS  OF  THE  EARTH  |XM)  AT  THE  PARTICULAR  GEOGRAPHICAL 
LOCATION  AT  WHICH  THE  CALCULATION  IS  TO  BE  PERFORMED. 


LWT  1860 
LWT  1665 
LWT  1670 
LWT  1675 
LWT  1680 
LWT  1685 
LWT  1690 
•LWT  1695 
LWT  1700 
LWT  1705 
LWT  1710 
LWT  1715 
LWT  1720 
LWT  1725 
LWT  1730 
LWT  1735 
LWT  1740 
LWT  1743 
LWT  1750 
LWT  1755 
LWT  1760 
LWT  1765 
LWT  1770 
•LWT  1773 
LWT  1780 
LWT  1705 
LWT  1790 
LWT  1795 
LWT  1800 
LWT  1  BOS 
LWT  1810 
LWT  IBIS 
LWT  1020 
LWT  1828 
LWT  1030 
LWT  1839 
LWT  1840 
LWT  1848 
LWT  1890 
LWT  1888 
LWT  1860 
LWT  111] 
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LEM 


IF  RO  BLANK  PROGRAM  USES  RADIUS  FOR  APPROPATE  MODEL 
ATMOSPHERE.  (MODEL  0  OR  7  OEFAULT  «  6371.23  KM) 

FOR  NORMAL  OPERATION  OF  PROGRAM 
SELECTS  THE  DONNNARO  TYPE  2  LONG  PATH 

IT  IS  NOT  NECESSARY  TO  SPECIFY  EVERY  OUANITY  GIVEN  ABOVE 
ONLY  THOSE  THAT  ADEQUATELY  DESCRIBE  THE  PROBLEM  ACCORDING 
TO  THE  PARAMETER  I  TYPE 


ITYP£*1  READ  HI .RANGE 

•3  READ  Hi .ANGLE  OR  Hi .HMIN 
■3  READ  HI ,H2, ANGLE  OR  HI ,H2, RANGE 
OR  HI .ANGLE. RANGE 


OR  HI .H3.BETA 


LNT 

LNT 

LNT 

LNT 

LNT 

LVT 

LNT 

LNT 

LNT 

LNT 

LNT 

LNT 

LNT 

LNT 

LNT 

•LNT 


CARO  3* 


LNT 

HI .P.T, OP.RH.NH.NO, RANGE  (MOOEL’O)  LNT 

FORMAT (3F10.3,2F5.1.3ElQ.3,F10.3)  LNT 

OPTIONAL  CARO  FOR  HORIZONTAL  PATHS  (MODEL'O. ITYPE‘1 )LNT 
IF  METERCLOGICAL  DATA  ARE  TO  BE  USEO  FOR  HORIZONTAL  LWT 
PATH  ATMOSPHERIC  TRANSMITTANCE  CALCULATIONS.  THEN  LNT 
SET  MODEL  «  0  ON  CARD  1.  (ALSO  SET  ITYPE.1 I ) 

THE  FOLLOWING  PARAMETERS  CAN  THEN  BE  SPECIFIED  ON 
CARO  3 


CARO  3* 


LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
•  LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 

l PH  DETERMINES  THE  TYPE  OF  PHASE  FUNCTION  USED  IN  THE  CALLNT 

LNT 

HENYEY-GHEENSTEIN  AEROSOL  PHASE  FUNCTION  LNT 

USSR  SUPPLIED  AEROSOL  PHASE  FUNCTION  (SEE  CARO  3B)  LNT 

HIE  GENERATES  DATA  BASE  OF  AEROSOL  PHASE  FUNCTIONS  FOR  TLNT 


HI ,P,T, DP.RH.NH.no, RANGE  (M00EL*0) 

FORMAT (3F10.3.2F5.1 .2E10.3.F1Q.3) 

NHERE  THE  ABOVE  PARAMETERS  REFER  TO  ALTITUOE(KM) . 
PRESSURE(MB) .AMBIENT  TEMP(C),DEN  POINT  TEMP(C), 
RELATIVE  HUMIoiTY(Jt)  .NATER  VAPOR  OENStTY(GM  M-3), 
□ZONE  0EN$ITY(GM/M**3) ,  »N0  PATH  LENGTH  (MAI) 


CARO  3AI  | PARM , | PH , I  DAY . I SOURC  (IEMSCT.2) 

FORMAT (R IS) 

INPUT  CARO  FOR  SOLAR/ LUNAR  SCATTERED  RADIATION  WHEN 
IEMSCT  »  3 

IPARM  >0,1.2  AND  CONTROLS  THE  METHOD  OF  SPECIFYING  THE 
SOLAR/LUNAR  GEOMETRY  ON  CARO  3A3. 


IPH>0 

•  I 

•  2 


lOMTRAN  MODELS. 

IOAY>  DAY  OF  THE  TEAR,  |  ,(f .  FROM  I  TO  363  (REQU1RC0) 

ISOURC-O  extraterrestrial  SOURCE  IS  the  sun 
•1  EXTRATERRESTRIAL  SOURCE  IS  The  MOON 


CARO  3 A3 


PARMI  .PARM3.  PXRH3.  PARHA.  T  IME.PStPO.ANCiLEM.G 

FORMA! (4*10.3)  ( IEMSCT >3) 


LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
LNT 
•  LNT 
LNT 
LNT 
LNf 


TB70 
1875 
1B80 
1685 
1690 
1895 
1900 
1905 
1910 
1915 
1920 
1935 
1930 
1935 
19A0 
19A5 
1950 
1955 
1960 
1965 
1970 
19T5 
1990 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2035 
2030 
2035 
29A0 
20A5 
2050 
3055 
2060 
2065 
2070 
2075 
2060 
2065 
2090 
2095 
2100 
2103 
2110 
2115 
2120 
2U5 
2 1 30 

2139 

2140 
7145 
2150 
2' 55 
3 1  AO 
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INPUT  CARO  FOR  SOLAR/LUNAR  SCATTERED  RAOIATION  WHEN  LWT 

IEMSCT  »  2  LWT 

DEFINITIONS  OF  PARM1 , PARM2 , PARM3.PASM4  DETERMINED  BY  LWT 
VALUE  OF  IPARM  ON  CARD  3A1.  LWT 

LWT 

FOR  IPARN.O  LWT 

LWT 

PARMt*  OBSERVER  LATITUDE  (-90  TO  *90)  LWT 


NOTE-  IF  ABS(PARMI)  IS  GREATER  THAN  89.5  THE  OBSERVER  IS  LWT 
ASSUMED  TO  BE  AT  EITHER  THE  NORTH  OR  THE  SOUTH  POLE.  IN  THLWT 
CASE  THE  PATH  AZIMUTH  IS  UNDEFINED.  THE  DIRECTION  OF  LINE  LWT 
SIGHT  MUST  BE  SPECIFIED  AS  THE  LONGITUDE  THAT  THE  PATH  LIESLWT 
this  QUANTITY  RATHER  THAN  the  USUAL  AZIMUTH  IS  REAO  IN  FOR  LWT 


PARM2«  OBSERVER  LONG1TUOE  (0  TO  360)  LWT 

PARM3>  SOURCE  (SUN  OR  MOON)  LATITUDE.  SEE  NOTE  REGARDING  SUN  ANGLE LWT 

PARM4.  SOURCE  (SUN  OR  MOON)  LONGITUOE  LWT 

LWT 

FOR  1PARM.1  LWT 

(TIME  MUST  SF.  SPECIFIED. CANNOT  BE  USEO  WITH  ISOURCoUWT 

LWT 

LWT 

PARM1.  OBSERVER  LATITUOE  (-90  TO  *90)  LWT 

PAR M2*  OBSERVER  LONGITUDE  (0  TO  360)  LWT 

PARM3, PARMA  ARE  NOT  REQUIRED  LWT 

LWT 

FOR  IPARM. 2  LWT 

LWT 

PARMt.  AZIMUTHAL  ANGLE  BETWEEN  THE  OBSERVER'S  LINE  OF  SIGHT  LWT 

AND  VNE  OBSERVER-TO-SUN  PATH,  MEASURED  FROM  THE  LINE  LWT 

OF  SIGHT,  POSITIVE  EAST  OF  NORTH,  BETWEEN  -t«0  AND  180  LWT 

PARM2*  THE  SUN'S  ZENITH  ANGLE  LWT 

LWT 

PARM3.PARM4  ARE  NOT  REQUIRED  LWT 

LWT 

LWT 

REMAINING  CONTROL  PARAMETERS  LWT 

LWT 

TIME.  GREENWICH  TIME  IN  DECIMAL  HOURS,  t.t.  8*45  AM  IS  B.TS.  LWT 

5*30  PM  IS  17.33  ETC.  LWT 

LWT 

PSIPO.  PATH  azimuth  (DEGREES  CAST  OF  NORTH,  I.C.  Out  NORTH  0.0  LWT 
OUE  CAST  IS  90.0  ETC.  LWT 

LWT 

AMGUM.PHA5E  ANGLE  of  THE  MQOM,  t.t.  THE  ANGLE  FORMED  LWT 

BY  THE  SUN.  MOON  AND  EARTH  (REQUIRED  IF  ISOURCM)  LWT 

LWl 

G>  ASYMMETRY  FACTOR  FOR  USE  WITH  M.Q.  PHASE  FUNCTION  LWl 

LWT 

. . . . I#*.*.*#.***#*.*#.********..##*..  »*lwt 

CARO  391  HAMOLS  (!Pm*1)  VM? 

FORMAT (IS)  LWT 

LWT 

INPUT  CARO  FOR  USER  OEFINEO  PHASE  FUNCTIONS  WHEN  LWT 

LWT 

HAMOLS*  NUMBER  of  angles  for  The  USER  OEFINEO  PHASE  LWT 

FUNCTtONStMAAtWLRI  OF  BQ)  LWT 

LWT 

LWT 


2165 

2170 

2175 

2160 

2185 

2190 

2195 

2200 

2205 

2210 

2215 

2220 

2225 

2230 

2235 

2240 

2245 

2250 

2255 

2260 

2265 

2270 

2275 

22B0 

2205 

2290 

2295 

230Q 

2305 

2310 

2315 

2320 

2325 

2330 

2339 

2340 
2345 
2350 
2355 
2360 
2388 
2370 
2378 
23B0 
23B5 
2360 
2395 
2400 
2405 
2410 
2*15 
2420 
2435 
24)0 
34)5 
2440 
2*45 
2450 
JAM 


23 


ououuuouuouoooooououoouoouyuuuuuoooouuuuuoouo 


CARO  382(1  TO  NANGLS) 

(ANGF(l).F(l.t ),F(2.I),F(3,1).F(4,I),I-1,NANGLS) 
FORMAT (F10.3.4E1Q.3) 

INPUT  CARO  FOR  USER  DEFINED  PHASE  FUNCTION  WHEN 
FOR  AVERAGE  FREQUENCY  OF  CALCULATION 

ANGF(I)*  phase  angle  in  decimal  degrees 

(0.0  TO  180.0) 

F(1.l)*  USER  OEFINEO  PHASE  FUNCTION  AT  ANGF(I) 

BOUNDARY  LAYER  (0  TO  2KMJ) 

F(3. I)*  USER  OEFINED  PHASE  FUNCTION  AT  ANGF(I) 
TROPOSPHERES  to  to  KM) 

F(3. I )•  USER  OEFINED  PHASE  FUNCTION  AT  ANGF(I) 
STRATOSPHERE! 10  TO  30  KM) 

F(4,I).  USER  OEFINEO  PHASE  FUNCTION  AT  ANGF(I) 
MESOSPHERE ( 30  TO  too  KM) 


CARD  4 


VI 

va 

ov 


vi.  va.  ov 


FQRMAT(3F10.3) 


THE  SPECTRAL  RANGE  OVER  which  data  are  REQUIREO  AND 
The  SPECTRAL  INCREMENTS  at  WHICH  the  DATA  ARE  TO  BE 
PRINTED  OUT  IS  DETERMINED  BY  CARO  4. 

INITIAL  FREQUENCY  (WAVENUMBER  CM-I  ) 

FINAL  FREQUENCY (WAVENUMBER  CM-1  ) 

FREQUENCY  INCREMENT  (OR  STEP  SUE)  (C»-t ) 

NOTE  ov  Must  ss  A  MULTIPLE  OF  S  CM-1 


CARO  5 
J8PT.0 
*1 


FORMAT! IS) 


(APT 

TQ  (NO  PROGRAM 

READ  All  DATA  CAROS  (1,3. 1.4, 5) 

NOT  USED 

READ  CARO  1  TmE  GEOMETRY  CARO  AND  CARD  S 
BEAD  CARO  4  TO  CHANGE  FREQUENCY  AND  CARD  8 
at  4  OR  t#PT *2  WILL  CAUSE  PROGRAM  TO  STOP 


•  2 
*1 


COMMON  RElHU»A(34)  .HSTURtSA) .  ICK(A)  .‘.'HI  t*).T*t1#>  .Ml  It) 

COMMON  WPAtHlsd,  16).  t#8YtS4|) 

COW'-t-ON  4B-5C(4.4R).  EAfClA.AOt.VASIAOl 
C0M.V4J.N  /IF  I L/  tm.  UP.  {PQ.SFR 

CW-’iJM  *  C**8>  /  W3SC L  .  I !  TPE .  I  EMJCT.Mt  ,W3  ,MJ ,  IM.NOPPNt .  T BOUND, EAL# 

cmum  ct#oi/  image , i seasn.  iyulcn. test v . icir. i vsa.vi s.mss . wwh, 

I  RAtNRT 

C9f*ah  ««»>/  Mt. *2, ANGLE. RANGE, BETA. R|. LEW 
COMMON  /CA«34/  vi.M3.CV 

COml-Dn  YC«4tsS/  M  .Ca.sIEO, iC*|R . BlQNuM.gSGjt* 

CfiWA'GN  /EMU*./  LWAl.V.  ■NVAA.HL  ,Ml,  IwiO, ! S5CSG 

eOMViN  /weatl.-  3viJ4).s>MlS4t.TW(3*I.RFN5*<J4>.DINSrYnB.Jt) 

C  CAWS'*  /SDlS/  Ami(  64)  ,*Sh(6?  ) ,  wPaThS(44.  tb) ,  PA(E1) ,  PR(BB) .  AtMETAt lL*T 
tS).A3BCTAOS).LU(6«).uTURN,AxaSuA<  LMT 


LWT 

LWT 

LWt 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LUT 

LWT 

LWT 

LWT 

LWT 

•  LWT 
LWT 
LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

•  LWT 
LWT 

LWT 

LWt 

LWt 

LWt 

LWt 

LWT 

LWt 

•LWt 

lift 

LW' 

LWT 

LWt 

Lift 

LWt 

LWT 

LWT 

LWT 

LWt 

Lfcf 

LWt 

iwt 


2460 
2465 
2470 
2475 
246Q 
2485 
2490 
2493 
2S00 
2505 
2510 
2515 
2520 
2523 
2530 
2535 
2540 
2545 
3550 
2555 
2560 
2565 
2570 
2515 
2587 
2585 
2590 
2595 
3600 
3605 
26  to 
2615 
2620 
2625 
3630 
3835 
2640 
2845 
2850 
2655 
26*0 
3885 
2670 
2673 
3880 
2613 
26*0 
2693 
2700 

2709 

2710 
it  it 
?l!0 
2733 
2730 
2733 
2740 

2?*S 

2780 


24 


COMMON  /MART/  RHH  LWT  2755 

COMMON  /tJSRDTA/  NANGLS .  ANGF(  50) ,  F(4 ,50)  LW  r  2760 

COMMON  /MqlZ/  KKDLZI8)  I.WT  2765 

COMMON  /LVSAlY/  ZV3A(10),RHVSA(10),AHVSa(1'..,,IHVSA(10)  LWT  2770 

COMMON  /TITl/  HHAZE(r.  t E  ,  , hSEASN ( 5 , 2 ) , HVU LCN(5 , 5) ,  8LANK , VSB (9) .  LWT  2775 

X  HMET(5,2),HM0D£L(5,8i .  .rRRAD(6,4)  LWT  2780 

C*»*»*HDATE  AND  HTIME  CARRY  -i  DATA  ANO  TIME  AND  MUST  BE  DOUBLE  LWT  2785 

PRECISION  ON  A  32  BIT  WORD  COMPUTER  LWT  2790 

co  double  precision  hdate, htime  lwt  2795 

DATA  IRPT  /  0  /  LWT  2800 

C*-*«*IRD,  IPR,  AND  IPU  ARE  UNIT  NUMBERS  FOR  INPUT,  OUTPUT,  AND  LWT  2805 

C***»*TAPE7  RESPECTIVELY  LWT  2810 


IRO  =  s 

LWT 

2815 

IPR  *  6 

LWT 

2820 

IPU  «  7 

LWT 

2825 

ce 

OPEN  ( IRO, FILE* 1  INPUT' ) 

LWT 

2830 

CO 

OPEN  (IPR, FILE='OUTPUT‘ ) 

LWT 

2835 

Cf 

OPEN  (IPU,FILE=,TAPE7I ) 

LWT 

2840 

PI«2.0»ASIN(1.0)  LWT  2845 

CA»P!/180.  LWT  2850 

DEG*  1.0/CA  LWT  2855 

C«**»*GCAIR  IS  THE  GAS  CONSTANT  FOR  AIR  IN  UNITS  OF  MB/(GM  CM-3  K)  LWT  2860 

GCAIR  *  2. 87053E+3  LWT  2865 

C***«*BIGNUM  AND  BIGEXP  ARE  THE  LARGEST  NUMBER  ANO  THE  LARGEST  ARGUMENT  LWT  2870 

C*****EXP  ALLOWED  ANO  ARE  MACHINE  DEPENDENT.  THE  NUMBERS  USED  HERE  ARE  FLWT  2875 

C«**»*A  TYPICAL  32  BIT-WORD  COMPU.F.R,  LWT  2880 

BIGNUM  =  1 , 0E3C  LWT  2885 

BIGEXP  *  87.0  LWT  2890 

KMAX* 1 6  LWT  2895 

C***«*NL  IS  THE  NUMBER  OF  BOUNDARIES  IN  THE  STANDARD  MODELS  1  TO  6  LWT  2900 

C*****BCUN0ARY  34  (AT  99999  KM)  IS  NO  LONGER  USED  LWT  2905 

NL  *  33  LWT  2910 

C»****CALL  TJX-  ANO  DATE:  LWT  2915 

C«**»*THE  USER  MAY  WISH  TO  INCLUOE  SUBROUTINES  FDATE  AND  FCLOCK  WHICH  LWT  2920 

C**»»*RETURN  THE  DATE  AND  TIME  IN  MM/DD/YY  AND  HH.MM.SS  FORMATS  LWT  2925 

C.«**«R£‘  CT1VELY.  THE  REQUIRED  ROUTINES  FOR  A  CDC  6600  ARE  INCLUDED  AT LWT  2930 


C**««*THE  MAIN  PROGRAM  IN  COMMENT  CAROS. 


Cff 

OP 

C 

C*. 

c 

c 


CALL  FOATE(HDATE) 
CALL  FCLOCK(HTIME) 

**«START  CALCULATION 


100  CONTINUE 

WRI TE ( IPR , 1 000) 

FORMAT (M*  , COX, ’•»«♦*  LOWTRAN  6  * 

WR I T E ( IPR, 1010)  HDATE, HTIME 

FORMAT T’l',20X, '*•***  LOWTRAN  6  1 , 1 0X,2( 1 X, A8, 1 X) ) 


'OCC 

OP 

1010 
C 

C****«CARD  1 

c 


') 


RcAO( I RO ,11 1 0)MODEL, ITYPE, IEMSCT ,M1 ,M2 ,M3 , IM.NQPRNT ,TB0UN0 , SALd 

1110  FORMAT (8 15 , 2F1 0 . 3} 

C 

WR  I  TE  ( I P-. ,  1 1 1 1 )  MODEL ,  I T  YPE ,  I  EMSCT  ,  M 1  ,  M2 ,  M3 .  IM.NQPRNT ,  TBOUNO ,  SALS 

1111  FORMAT (‘0  CARO  1  *«**» ' ,$IS,3F10.3) 

MsMODSL 

NPR  ■  NOPRNT 

C*****CARD  2  AEROSOL  MODEL 


LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LWT 

LUT 

LWT 

LWT 

LWT 

LWT 

LWT 


2935 

2940 

2945 

2950 

2955 

2960 

2965 

2970 

2975 

2960 

2985 

2990 

2995 

3000 

3005 

3010 

3015 

3020 

3025 

2030 

3038 

3040 

3045 
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READ! I RO, 1200) 1HAZE, ISEASN, 1VULCN,  ICSTL, IC 10 ,  1VSA, VISiWSS, WHH, 

X  RAINRT 

1200  FORMAT (615 ,4^ 10.3} 

WRITE! IPR.  1201 )  I  HAZE  ,  ISEASN,  I VULCN ,  ICSTL ,  ICIR, I VSA , VIS , WSS , WHH, 
X  RAINRT 

1201  FORMAT ( 1 0  CARO  2  •  ***• • , 615 ,4F10. 3) 

C 

IK  VIE.LE.O.O.aNO.  IHA2E-G'.0)  VIS*VS8(  IHAZE) 
rhh*  0. 

1F(MOOEL.£O.O.OP.^OEL.E0.7)  go  TO  205 

1F( (MODEL. EO-3.OR.MOOEL.EO. S). AND- ISEASN. EO.O)  ISEASN-2 

c 

IF(  IHAZE. EO. 3)  HALL  MARIN£{vIS, MODEL. WSS. WHH, ICSTL, EXTC, ABSC. t) 
ICH ( 1 I.IHAZE 
ICH( 2 )*6 
ICH<3)*9+1VL'LCN 

205  I r ( RAINRT ,E0- 0)  GO  TO  210 
WRITEUPR.  1205!  RAINRT 

1205  FORMATCO  RAIN  MODEL  C4UE0,  RAIN  RATE  «  *.F9.2,'  A*«/HR') 

210  1CH( 4 ) « 1 5 

IF(ICH(1).LE.0)1CH(1)-1 
IF( 1CH(3).LE.9)ICH(3)*10 
IFLGA=0 
iflgt*o 

CTHIK.-99. 

CAL  T --99 . 
lSE£0»-99 

IF( ICIR. EO.O)  00  TO  230 
C«»*«*CARO  2A  CIRRUS  CLOUDS 

REAO( IRO.IZIOJCTHIK.cACT.ISEEO 

1210  FCRMAT(2F10.3.nO) 

WRJ  T£( IPR. 121 1 )CTH1K,CAIT, I SEED 

1211  FORMATCO  CARO  2A  2FI0 . 3, 1 1 0) 

IF(CTMIK.NE.O)  IFLOT.I 
IF(CALT.NE.O)  IFLQA.t 

IF( ISCED. '0.0)  IFL01.2 
IF( ISCED. EO.O)  IFL0A.2 
CALL  CIRRUS(CTHIK,CALT. IS5EO.CPRQ0) 

WRI TE( IPR, 1220) 

1220  FORMAT! ISX. 'CIRRUS  ATTENUATION  INCLUDED’) 

IF( IF LOT .EO.O)  WRITE ( I  PR , 1 221 )  CTHTP 

1221  FORMAT!  1SX. 'CIRRUS  ATTENUT  ION  STATISTICALLY  OETERUENED  TO  BE'. 

X  F 1 0 . 3 , '  KM ' ) 

|F( IFL3T.E0. 1 )  WRITE! IPW. 1222)  CTH1H 

1222  FORMAT ( 1  Ox, 'CIRRUS  THICKNESS  USER  DETERMINED  TO  BE ' , F10.3  ,'KM' ) 
IF( If  LOT . L0.2)  WRI TE( IPR. 1223)  CTHIK 

1223  FORMAT! ibx. 'CIRRUS  THICKNESS  DEFAULTED  TO  MEAN  VALUE  OF 
X  FlO.J, 'KM' ) 

IF t  : r lOK.. EO.O)  WRI T£(  IPR,  1 224)0'. T 

1224  FORMAT!  15*.  'CIRRUS  BASE  ALTITUDE  STATISCAUV  DETERMINED  TO  BE'. 
*  FI0.3. ‘  KM’ ) 

ir< IFLOA.EO. 1 )  WHITE! IPR, 1225)  CALT 

1225  FORMAT! tax. 'CIRRUS  BASE  ALTITUDE  USES  DETERMINED  TO  BE', 

X  f 1 0 . 3, 1  KM' ) 

IF t IFLOA.EO. 2)  WRITE! IPR. 1226)  CALT 

1226  FORMAT ( 1SX , 'CIRRUS  BASE  ALTITUDE  DEFAULTED  TO  MEAN  VALUE  OF’, 

X  FIR. 2. 'KM' ) 

WRITE!  IPR.  li3T)CP!I0l! 

*222  FORAIA*!  18X,  ‘PRODAfilLTY  OF  ClOUO  OCCURRING  IS', FT.  I . 


LWT  3050 
LWT  3055 
LWT  3060 
LWT  3065 
LWT  3070 
LWT  3075 
LWT  3080 
LWT  3085 
LWT  3090 
LWT  3091 
LWT  3092 
LWT  3093 
LWT  3095 
LWT  3105 
LWT  3110 
LWT  3115 
LWT  3120 
LWT  3125 
LWT  3130 
LWT  3135 
LWT  3140 
LWT  3145 
LWT  3150 
LWT  3155 
LWT  3160 
LWT  3165 
LWT  3170 
LWT  3175 
LWT  3180 
LWT  3185 
LWT  3,90 
LWT  3195 
LWT  3200 
LWT  3205 
LWT  3210 
LWT  3215 
LWT  3220 
LWT  3225 
LWT  3230 
LWT  3239 
LWT  3240 
LWT  3245 
LWT  3290 
LWT  325“ 
LWT  3280 
LWT  3269 
LWT  3270 
LWT  3275 
LWT  32B0 
LWT  3289 
LWT  3290 
LWT  3295 
LWT  3300 
LWT  3305 
LWT  3310 
LWT  3315 
LWT  3320 
LWT  3325 
LMT  3330 
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X  '  PERCENT') 

230  CONTINUE 

C***»«CARO  28  VERTICAL  STRUCTURE  ALGORITHM 
ZCVSA.-99. 

ZTVSA— 99. 

2INVSA— 99. 

I F (  IVSA.  EQ.  0  )  GO  TO  240 
READ  (IRO.1230)  ZCVSA. ZTVSA. ZINVSA 

1230  FORMAT (3F1 0.3) 

WRITE! IPR| 1231 ) 2CVSA , ZTVSA , Z I NVSA 

1231  FORMAT! '0  CARD  28  ,3F1 0 .3) 

C 

CALL  VSA ( I HAZE , V I S , ZCVSA , 2T VSA , Z I NVSA , Z^SA . RHVSA , AHVSA , XHVSA ) 
C 

240  IF  (MODEL. NE. 7)  ML*NL 
00  250  I«1 ,S 

IF(M.NE.0)HM0DEL(I,7)»HM0DEL(I,M) 

250  IF(M.E0.0)HM0DEL(I.7)*HM00EL(I,8) 

IF  (MODEL. NE. 7. OR. IM. EC. 0)  GO  TO  260 
C 

C****«CAR0  2C1  USER  SUPPLIED  ATMOSPHERIC  PROFILE 
C 

READ  (1RD.12S0)  ML.(HM00EL(It7),I»1,5) 

1250  FORMAT ( IS ,18A4) 

WRIT£(IPR,1251)ML, (HMODFL( I , 7) , I»1 ,5) 

1251  FORMAT! '0  CARO  2Ct*»**» * . 15, 18A4) 

CALL  NSMDL 

280  CONTINUE 

C 

C 

Cx*3«CARD  20 
C 

I F ( IHA2E.NE.7)  GO  TO  300 

C*«*«*CARD  20  USER  SUPPLIED  AEROSOL  EXTINCTION  AND  ABSORPTION 
READ! IRO.  1  260 ) { OUMMY , EXTC( 1 . 1 ) , ABSC( 1 , I) , !»1 ,4C) 

1260  FORMAT (4(F6.2.2F7.5)) 

WRITE! 1 PR, 1281 ) ( EXTC( 1 il)i ABSC! 1 ,1)«I»t, 40  J 

1261  FORMATCO  CARO  20  «••••* ,4(6X,2F7. 5) ) 

300  CONTINUE 

C 

C 

O»«»«CAR0  3  GEQMETERV  PARAMETERS 
C 

IF  (MODEL. NE.O)  00  TO  310 
C 

C*****-CARD  3* 

c.**«.horuontal  path  model  *0 

c 

ML*  1 

LEN*Q 

CALL  NSMDL 
00  TO  32 t 
C 

310  CONUNUE 
C 

IP< IVSA.EO.O)  00  TO  312 

c 

C««*»»VSA  OUTPUTS  FINE  LAYERING  OF  THE  ATMOSPHERE  NEAR  THE  GROUND 
C 
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LWT  3020 
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M«7 

LWT 

2625 

IF(MODEL.N£.0. ANO. MODEL. NE.7)CAIL  NSMDL 

LWT 

3630 

312 

CONTINUE 

LWT 

3635 

C 

LWT 

36A0 

IF  (MOOEL.EO.O)  00  TO  320 

LWT 

36A5 

C 

LWT 

3650 

C»»»**CARD  3 

LWT 

3655 

C 

LWT 

3660 

IF( IEMSCT. EQ.3)  GO  TO  315 

LWT 

3665 

REA0(IRD,1312)H1 , H2. ANGLE, RANGE, BETA, RO. LEN 

LWT 

3670 

1312 

FORMAT ( 6F1 0 . 3, 15 ) 

LWT 

3675 

WRlTE(IPR,1313)Ht ,H2, ANGLE, RANGE, BETA, RO, LEN 

LWT 

3680 

1313 

FORMAT( '0  CARO  3  »•»«•', 6F1 0 . 3, 15) 

LWT 

3665 

GO  TO  320 

LWT 

3690 

C»***»CARO  3  FOR  DIRECTLY  TRANSMITTED  SOLAR  RADIANCE  (IEMSCT  «  3) 

LWT 

3695 

31  5 

CONTINUE 

LWT 

3700 

READ(IRD,1316)  HI , H2 , ANGLE, IDAY.RO 

LWT 

3705 

1316 

FORMAT (3F10.3,I5,5X,F10.3) 

LWT 

3710 

WRITE( IPR, 1317)  HI ,H2. ANGLE, IDAY.RO 

LWT 

3715 

1317 

FORMAT ( 1 0  CARD  3"  *«••• '  .3F10.3, 15, 6X,  F10.3) 

LWT 

3720 

ITYPE  *  3 

LWT 

3725 

RANGE  >  0.0 

LWT 

3730 

BETA  «  0.0 

LWT 

3735 

LEN  ■  0 

LWT 

37A0 

«R0  IS  THE  RADIUS  OF  THE  EARTH 

LWT 

37A5 

320 

RE.6371 .23 

LWT 

3750 

IF  (MODEL. E0.1)  RE“6378.39 

LWT 

3755 

IF  (MODEL. EQ. 4)  RC«6356.91 

LWT 

3760 

IF  (MODEL. EQ. 5)  RE>6356.91 

LWT 

3765 

IF  (RO.GT.O.O)  RE«RO 

LWT 

3770 

C 

LWT 

3775 

321 

CONTINUE 

LWT 

3780 

IPARM  —99 

LWT 

3785 

IPH  «-99 

LWT 

3790 

IDAY  >-99 

LWT 

3795 

ISOURC— 

LWT 

3800 

C 

LWT 

3805 

PARM1  ■-99, 

LWT 

3810 

PARM2  —99. 

LWT 

3815 

PARM3  —99. 

LWT 

3820 

PARMA  «-99. 

LWT 

3825 

TIME  •**99 . 

LWT 

3830 

PSIPO  ■-99. 

LWT 

3835 

ANGLEM.-99. 

LWT 

38A0 

0  *“99 , 

LWT 

38A5 

C 

LWT 

3050 

IF  (IEMSCT. NE. 2)  GO  TO  330 

LWT 

3855 

C 

LWT 

3860 

C»*..«CARD  3A1 

LWT 

3865 

C 

LWT 

3870 

READ! IRU, 1320)  IPARM, IPH, IOAY , ISOURC 

LWT 

3075 

1320 

FORMAT(AlS) 

LWT 

3880 

WRITE! IPR, <321)  IPARM, I  PH. IDAY, ISOURC 

LWT 

308S 

1321 

FORN.AT (  ' 0  CARO  3AU**«»' ,415) 

LWT 

3890 

C 

LWT 

3895 

C*»*«*CARO  3A2 

LWT 

3900 

C 

LWT 

3905 

READ ( I RO , 1 322 ) PARM1 , PARH2 , PARM3 , PARMA , TIME , PSI PO , ANQLEM.G 

LWT 

3010 

1322 

FORMAT ( OF 1 0  *  3) 

LWT 

3915 

20 


WRlTE;iPR,1323)PARM1 ,PARM2,PARM3,PARM4,TIME,PSIP0,ANGLEM,6 
1323  FORMAT ( 1 0  CARD  3A2«*«*« 1 .8FtO .3) 

C 

IF  (IPH.NE.1)  GO  TO  330 
C 

C«****CARD  3S1  USSR  OEFINEO  PHASE  FUNCTION 
C 

C****»REAO  user  defined  phase  function 

c 

READf IRD, 1 326JNANGLS 

1326  FORMAT} 15) 

WRITE; I  PR, 1327)NANGLS 

1327  FORMAT;1  CARD  3B1*****' .15) 

C 

C*«**«CARD  3B2 
C 

REAO( I RD, 1 328) ( ANGF (I),F(1,I),F(2.I),F(3,I).F(4,I),I*1 , NANGLS) 

1328  FORMAT  C  5 E 1 0.3) 

WRITE ( I  PR, 1 329) ( ANGF { I ),F(1,I),F(2.I).F(3,I),F(4,I),I«1 , NANGLS) 

1329  FORMAT; '0  CARD  382***** ' , 5E1 0 . 3) 

C 

330  CONTINUE 
C 

IF  (1RPT.E0.3)  GO  TO  500 
C 

C»»***CAR0  4  WAVENUMBER 

c 

400  CONTINUE 

REAO( IR0.1400JV1  .V2.0V 

1400  FORMAT (3F1 0 . 3 ) 

WRITE  (IPR.1401)  V1.V2.OV 

1401  FORMAT; '0  CARD  4  •***• 1 , 3F1 0 .3) 

IF  (IRPT.EQ.4)  GO  TO  560 

BOO  CONTINUE 

WRI T  E ( X  PR , 1410)  (HTRRAD( II .IEMSCT+1 ),I1«1,6) 

1410  FORMAT; '0  PROGRAM  WILL  COMPUTE  '  ,6A4) 

MOEL=MOOEL 

IF(M0EL.EQ.0)M0cL»8 

MMUMOEL 

MM2-MDEL 

MM3*MDEL 

IF( Ml ,NE,0)MM1.MI 
IF(M2.NE.0)MM2«M2 
IF(M3.NE.0)MM3«M3 
IF;modEl.EO.O)  GO  TO  si 0 

write; IPR. 1500)  MM1 , (HMOOElt 1 1 ,MM1 ) . II »1 .8) ,MM2 , (HMOOEL( 12.MM2) . 
X  12*1 .5) ,MM3,(HM0DEl{I3,MM3) , I3«1 ,9) 

1SOO  FORMATCO  ATMOSPHERIC  MODEL',/, 

X  10X, 'TEMPERATURE  •  ‘ . 14, 5X , SA4 ,/ . 

X  10X, 'WATER  VAPOR  ■  ' , 14 , 5X, SA4 ,/, 

X  10X. 'OZONE  «  1 , I4,6X,5A4) 

C 

810  IF;M,EQ.7)  GO  TO  620 

IF( ISEASN, EO, 0) 1SEASN*  t 
IF; 1VULCN, LE.O)  IVULCNM 
IHVUl«IVULCN+9 
IMMET • 1 

IF( IVULCN, GT . 1 ) INMET  »2 

IF(IHAZE.EQ.O)  00  TO  820 
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1510 


520 

1515 

1516 

1517 

C 

C*»»i 

c 

c 

c 

1530 

1532 


1534 


1535 

1536 

1538 

1540 


WRITE ( IPR, 1510) (HHAZE( I , I HAZE) , I«1 ,5) , VIS , (HHAZE( 12.6) ,  12*1  ,5), 
X  (HHAZE(II,6),II=1,5),(HSEASN(IA.ISEASN),IA*1,5), 

X  (HHAZE(t3,IHVUL),I3=1 ,5), 

X  (HVULCNf 1 8, 1VULCN ) ,  IB”  1 , 5) , (HSEASN( IC, ISEASN) , IC*1  ,6), 

X  (HHAZE(14,15), J4«l ,5>,(HMET(I5,IHMET),I5=1 ,5) 

FORMAT ( ' 0  AEROSOL  MODEL  1 ,/, 1  OX, ' REGIME 1 , 

A  T35 , 1  AEROSOL  TYPE ‘ , T60 , 1 PROFI LE 1 , T85 SEASON' , 

6  10X, 'BOUNDARY  LAYER  (0-2  KM ) ' , T35.5A4 ,T60 , F5. 1 , 

C  '  KM  VIS  AT  SEA  LEVEL 10X , 1  TROPOSPHERE  (2-10KM) ' ,T35, 

D  5A4,T60,5A4,T85,5A4,/, 1  OX, 'STRATOSPHERE  (10-30KM)', 

E  T35,5A4,T60,5A4,T8S,5A4,/,10X, 'UPPER  ATMOS  (30-100KM) ' , 

F  T35 , 5A4 , T60 , 5A4 ) 

CONTINUE 

IF(ITYPE.EO.I)  WRITE( I  PR , 1 51 5)  HI, RANGE 

FORMATCO  HORIZONTAL  PATH ',/,  10X,  '  ALTITUDE  »  '.F10.3,'  KM',/, 

1  10X, 'RANGE  *  ' , FI 0 . 3, '  KM' ) 

1F( 1TYPE.E0.2)  WRITE( IPR , 151 6)  HI ,H2, ANGLE, RANGE, BETA, LEN 
FORMAT i'O  SLANT  PATH,  HI  TO  H2',/, 

1  lOX.'HI  »  1 , FI 0 . 3 , 1  KM' ,/, 10X, 'H2  .  ',F10.3,‘  KM’,/, 

2  10X, 'ANGLE  *  '.F10.3,'  DEG' ,/, tOX, ‘RANGE  *  '.FIO.S,'  KM',/, 

3  10X, ‘BETA  *  ' , FI 0 . 3 , '  DEG' ,/, 10X , ' LEN  -  ',!«) 

IF( ITYPE.E0.3)  WRIT£( I  PR , 151 7 )  HI ,K2, ANGLE 
FORMATCO  SLANT  PATH  TO  SPACE',/, 

1  10X,  'HI  .  ' , FI  0 . 3, 1  KM' ,/, 10X, 'HMIN  •  *,F10.3,'  KM',/, 

2  10X, 'ANGLE  *  ‘ , FI 0 , 3 , '  DEG') 

IF  ( IEMSCT . NE.2)  GO  TO  550 

•INTREPRET  SOLAR  SCATTERING  PARAMETERS 


IF  (IPARM.EQ.1)  CALL  SUBSOL  ( PARM3 , PARM4 , T  XME , I  DAY ) 
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LWT  4370 

WRITE  (IPR, 1630)  LWT  4375 

FORMATCO  SINGLE  SCATTERING  CONTROL  PARAMETERS  SUMMARY  '/)  LWT  4380 

IF( IPARM.NE.2)  WRITE  (IPR, 1532)  PARM1 , PARM2 , PARM3 , PARM4 , T IME , PSI PO LWT  4385 
1 , IDAY  LWT  4390 

FORMAT (10X, 'OBSERVER  LATITUDE  ■ ' ,T35. F10.2 . '  DEG  NORTH  OF  EQUATOR ' LWT  4395 
X, 1 0X , ' OBESRVER  LONGITUDE  • ' , T35, FI  0.2 , '  DEO  WEST  OF  GREENWICH',/,  LWT  4400 
X  10X, 'SUBSOLAR  LATITUDE  « • ,T35, FI 0 .2 , '  NORTH  OF  EQUATOR' ,/,  LWT  4405 

X  10X, 'SUBSOLAR  LONGITUDE  * ' , T35, FI 0 . 2 , '  WEST  OF  GREENWICH',/,  LWT  4410 

X  10X, ' TIME  ( <0  IS  UNOEF) *' ,T35,F10.3, 1  GREENWICH  TIME',/,  LWT  4415 

X  1 0X, 1  PATH  AZIMUTH  * ' , T3B.F1 0.3. '  DEG  EAST  OF  NORTH',/,  LWT  4420 

X  1 0X, ' DAY  OF  YEAR  * ' , T35, 1 10 )  LWT  4425 

IF  (IPARM.EQ.2)  WRITE  ( IPR , 1 534)PARM1 , PARM2 , TIME, PSIPO, IDAY  LWT  4430 

PORMAT(10X, 'RELATIVE  AZIMUTH  * ' .T35.F10.3, '  DEG  EAST  OF  NORTH',/,  LWT  4435 
X  1 0X, ' SOLAR  ZENITH  . ' , T35, FI  0 . 3. '  DEG  ',/,  LWT  4440 

X  lOX.'TIME  (<0  UNOEF)  » '  ,  T35 , F 1 0 . 3 , '  GREENWICH  TIME'./,  LWT  4445 

X  IOX.'PATh  AZIMUTH  • ' ,T3S, Fl 0. 3, 1  DEG  EAST  OF  NORTH',/,  LWT  4450 

X  1 0X , ' DAY  OF  THE  YEAR  *',135,16)  LWT  4455 

IF  ( ISOURC.EO.O)  WRITE  (IPR, 1535)  LWT  4460 

FORMATCO  EXTRATERRESTIAL  SOURCE  IS  THE  SUN')  LWT  4465 

IF  (IS0URC.EQ.1)  WRITE  (IPR, 1530)  ANGLEM  LWT  4470 

FORMATCO  EXTRATERRESTIAL  SOURCE  IS  THE  MOON,  MOON  PHASE  ANGLE  ■',LWT  4475 
X  F10.2, 1  DEG' )  LWT  4480 

IF  (IPH.EQ.O)  WRITE  (IPR, 1538)  Q  LWT  44B5 

FORMATCO  H-G  PHASE  FUNCTION  ,G«',F10.3)  LWT  4490 

IF  (IPH.EQ.1)  WRITE  (IPR, 1540)  LWT  4495 

FORMATCO  USER  SUPPLIED  PHASE  FUNCTION')  LWT  4500 

IF  (IPH.EQ.2)  WRITE  (IPR, 1542)  LWT  4506 
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1542  FORMAT ( 1 0  PHASE  FUNCTION  FROM  MIE  DATA  BASE*) 

550  CONTINUE 

VI  = FLOAT ( INT( VI /5.0+0 . 1 ) ) *5. 0 
V2  *FLOAT( INT(V2/5.0+0. 1 ) ) *5.0 
ALAM1»10000./V1 
ALAM2*10000./V2 
IF(0V.LT.5. )0V«5. 

DV*FLOAT(INT(DV/S+0.1 ))*5.0 
WRITE  (IPR.1S55)  VI ,ALAM1 , V2 , ALAM2 ,DV 
1555  FORMATCO  FREQUENCY  RANGE  '/,10X,'  VI  »  ’,F12.1,'  CM-1  (' 

X  F10.2, 1  MICROMETERS) '  ./,10X,  1  V 2  *  ‘.F12.1,1  CM-1  O.F10.2, 

X  '  MICROMETERS) 1 ,/10X, ‘  DV  «  ‘,F12.1,*  CM-1 ■ ; 

C 

C*****LOA0  ATMOSPHERIC  PROFILE  INTO  /MODEL/ 

c 

CALL  STDMOL 
C 

C**»«*TRACE  PATH  THROUGH  THE  ATMOSPHERE  AND  CALCULATE  ABS0R8ER  AMOUNTS 
C 

ISSQEOsO 

CALL  GEO  (IERROR.BENONG  ) 

C 

IF( IERROR.GT .0)  GO  TO  630 

I F ( IEMSCT. EQ.3  .AND.  IERRQR. EQ.  -5)  GO  TO  557 
GO  TO  5S8 
557  CONTINUE 

WRITE( IPR, 1 567) 

1557  FORMATCO  DIRECT  PATH  TO  SUN  INTERSECTS  THE  EARTH!  SKIP  TO  >, 

1  'NEXT  CASE' ) 

GO  TO  630 
556  CONTINUE 
C 

IF( IEMSCT. EO. 2) 

X  CALL  SSGEO( IERROR, IPH, I PARM, PARM1 > PARM2 , PARM3, PARM4 , PSIPO.G) 

I F ( IERROR.GT. 0)  GO  TO  630 
C 
C 

LOAD  AEROSOL  EXTINCTION  ANO  ABSORPTION  COEFFICIENTS 
C 

CALL  EXABIN 
C 

C«***«WRITE  HEADER  DATA  TO  TAPE  7 
C 

5B0  WRITE(IPU,1110)MQOEL,ITYPE, IEMSCT, Ml .M2.M3 . IM.NOPRNT , TBOUNO.SALB 
WRITE! I PU, 1 200) I HAZE , ISEASN, I VULCN , ICSTL, ICIR. IVSA, VIS, WSS.WHH, 

X  RAINHT 

WRITE! IPU, 1210)  CTHIK. CALT , I  SEED 

WRITE(IPU,1230)ZCVSA,ZTVSA,21NVSA 

WRITE! IPU, 1250)  ML, (HMODEL!! ,MOEL) , I»1 .3) 

IF(MODEL.NE.O)WRITE  (IPU, 1312)  HI ,H2, ANGLE, RANGE, BETA, RO.LEN 
IF (MODEL. EO.O)  WRITE! IPU. 1560) (HMDLE(K) ,K»1 ,8) 

1580  FORMAT (3F10.3,2F5.1 ,2E10.3,2F10.3) 

WRITE! IPU. 1320)  IPARM.IPH.IOAY.ISOURC 

WRITE! IPU, 1322)  PARM1 , PAHM2, PARM3, PARMA, TIME, PSIPO, ANOLEM.G 
WRITE! IPU, 1400)  V1.V2.0V 
READ(IR0.1600)IRPT 
1600  FORMAT (15) 

WRITE! IPU, 1600)  IRPT 
C 
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IRAIN«0 

IF(RAINRT.GT.O)  IRAIN«1 
C 

CALL  TRANS  (IPH.ISOURC.IOAY.ANGLEM) 

c 

c****+write  end  of  file  on  TAPE  7 
1 6t0  CONTINUE 

WRITE( IPU, 1620) 

1620  FORMAT ( 1  -9999.') 

630  CONTINUE 
C 

WRI  TE(TPR,  1630)  IRPT 
1630  FORMAT ( 1 0  CARO  S  ***** ■ ,15) 

IF  (IRPT.E9.0)  GO  TO  900 
IF  (IRPT.GT.4)  GO  TO  900 
GO  TO  (100,900,300,400),  IRPT 
900  STOP 
CP  END 

CP  THE  FOLLOWING  TIME  AND  DATE  SUBROUTINES  APPLY  TO  A  COC  6600 
CP  SUBROUTINE  FOATE(HDATE) 

CP  CALL  DATE(GOATE) 

CP  HDATE*SHIFT(G0ATS,6) 

CP  RETURN 
CP  ENO 

CP  SUBROUTINE  FCLQCK(HTIME) 

CP  CALL  CLOCK(GTIME) 

CP  HTIM£«SNIFT(GTIKE,6) 

CP  RETURN 
ENO 
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SUBROUTINE  NSMOL 

£***«**»« **•**★******♦****#***********♦**•****♦**#•*•*♦*********  *♦***•♦ 

C  USED  FOR  USER  OEFINEO  ATMOSPHERIC  MODELS  (M0DtL»0  OR  7) 

C  DEFINES  ALTITUDE  DEPENDENT  VARIABLES  Z,P,T,WH,WO  AND  HAZE 
C  LOADS  HAZE  INTO  APPROPRATE  LOCATION 

c******** *  ************ ****************************************** ******* 

COMMON  /IFIL/IRD, IPR, IPU.NPR 

COMMON  /CARD1 /  MODEL, ITTPE , IEMSCT, Ml ,M2,M3, IM,NOPRNT , T BOUND , SA LB 
COMMON  /CARD2/  I HAZE , I SEASN , I VU LCN , ICST L , IC 1 R , I VSA , V I S , KSS , WHH , 

1  RAINRT 

COMMON  /CARD3/  HI ,H2 , ANGLE , RANGE .BETA, RE , LEN 
COMMON  /CARD4/  V1,V2,DV 

COMMON  /CNTRL/  KMAX ,M, IKMAX.NL ,ML, IKLO, ISSGEO 
COMMON  /MART/  RHH 

COMMON  /MDATA/ZM( 34} , P( 34, 7) ,T(34, 7) ,WH( 34, 7) , WO( 34,7) , 

X  HM I X 1 34 ) 

COMMON  /MODEL/  Z(34) , PM( 34} , TM(34) , RFNDX(34 ) , DENSTY (16,34) 

COMMON  RELHUM<34) ,HSTOR(34), ICH(4) ,VH(t6) ,TX< 1 6) , W( 16) 

COMMON  WPATH(68, 16) ,TBBY(€8) 

COMMON  ABSC(4,40) ,EXTC(4,40) ,VX2(40) 

COMMON  /ZVSALY/  ZVSA( 1 0) , RHVSA( tO) , AHVSA( 10) , IHVSAt  1 0) 

COMMON  /MDLZ/HMDLZ(8) 

COMMON  /TITL/  HZ ( 5 , 1 5 ) »SEASN( 5 ,2) , VULCN( B ,5) , BLANK,VSB(9) , 

X  HMET (5 , 2) , HMODE  L( 5, 8 ) 

DIMENSION  A HO LI ( 5 ) ,AH0L2(5) , AH0L3( 5 ) *  AH AST (34) ,AHLVSA(5) , AHUS(S) , 
t  ITY1 (35) . IH1 (34) , IS1 ( 34) , IVL1 (34) 

DATA  AHLVSA/4HVSA  ,4HDE F I , 4HNED  ,4H  , 4H  / 

DATA  AHUS  /4HUSER ,4H  OEF , 4HINED.4H  ,4H  / 


F(A)  IS  SATURATED  WATER  WAPOR  DENSITY  AT  TEMP  T,A*TZERO/T 

F(A)*EXP(18.9766-14.9S95»A-2.43B82«A«A)*A 
CALL  DRYSTR 

IF (MODEL .£Q. 7. AND . IVSA.EQ. t ) CALL  RDNSM(ML.IM) 

IF( MODEL . EO, 0)  M.MODEL 

ICL«0 

T0*273.15 

IC1 

N*7 

IF ( I VULCN. LE . 0)  I VULCNal 

IF( ISEASN.LE.O)  ISEASN»1 

FOR  MODEL  EO  ZERO 

IHAt.O 

ISEAI.0 

IVUU*0 

VIS1-0. 

AHAZE'O. 

END  OF  MODEL  ZERO  default 
IF  (M.NE.O)  WRITE( IPR, TOO) 

K>0 

LOOP  OVER  LAYERS 
K.K+I 

IF(M.EO,0)READ( IRD,8B>H(,P(t,7) ,TMP,DP,RH,WH(K,7) . W0(K,7) .RANGE 
IF(K.OT.t)  GO  TO  5 
HMOLZH  )*H1 
HMDLZ(2)»P(1  ,7) 

HM0LZ(3)'TMP 


NSM 

100 

NSM 

105 

NSM 

110 

NSM 

115 

NSM 

120 

NSM 

125 

NSM 

130 

NSM 

135 

NSM 

140 

NSM 

1 45 

NSM 

150 

NSM 

155 

NSM 

160 

NSM 

165 

NSM 

*170 

NSM 

175 

NSM 

*180 

NSM 

185 

NSM 

190 

NSM 

195 

NSM 

200 

NSM 

205 

NSM 

210 

NSM 

215 

NSM 

220 

NSM 

225 

NSM 

230 

NSM 

235 

NSM 

240 

NSM 

245 

NSM 

250 

NSM 

255 

NSM 

260 

NSM 

265 

NSM 

270 

NSM 

275 

NSM 

280 

NSM 

285 

NSM 

290 

NSM 

295 

NSM 

300 

NSM 

305 

NSM 

310 

NSM 

315 

NSM 

320 

NSM 

325 

NSM 

330 

NSM 

335 

NSM 

340 

NSM 

345 

NSM 

350 

N5M 

355 

NSM 

360 

NSM 

365 

NSM 

370 

NSM 

375 

NSM 

300 

NSM 

305 

NSM 

390 

33 


HM0LZ(4)aOP 

NSM 

395 

HM01Z(5)»RH 

NSM 

400 

HMDLZ(6)=WH(K,-7i 

NSM 

405 

HMOLZ(7)aHO<K,7) 

NSM 

410 

HMDLZ(8)=RANGE 

NSM 

415 

5 

IF(M.£Q.0)WR1TE(IPR.90)H1,P(1 ,7) ,TMP,DP,RH,WH(K,7) ,W0(K,7) .RANGE 

NSM 

420 

IF(M.EQ.O)  GO  TO  8 

NSM 

425 

IF(  IVSA.EQ.  1 1  GO  TO  7 

NSM 

430 

IF(M.E0.7)REA0( IRD,80)Z<K),P(K,7).TMP,OP,RH,WH(K,7),WO(K,7),AHAZE 

,NSM 

435 

1 V I S 1 t IHA1 , ISEA1 , IVUL1 

NSM 

440 

7 

I F ( IVSA.EQ. 1 )CALL  LAYVSA(K,TMP,DP,RH,AHAZE,VIS1 ,IHA1 .ISEA1 ,IVUL1 ) 

NSM 

445 

WRIT£(IPR,9D)Z(K),P(Ki7),TMP,DP,RHfWH(K,7) ,W0(K,7) .AHAZE.VIS1 . 

NSM 

450 

1  IHA1 , ISEA1 ,IVUL1 

IF  (M.EQ.O)  Z(K)=H1 

NSM 

455 

8 

NSM 

460 

AHAST(K)«AHAZE 

NSM 

465 

C 

IHAt  IS  IHAZE  FOR  THIS  LAYER 

NSM 

470 

C 

ISEA1  IS  I SEASN  FOR  THIS  LAYER 

NSM 

475 

c 

IVUL1  IS  IVULCN  FOR  THE  LAYER 

NSM 

480 

IF(ISEAI.EQ.O)  ISEA1«ISEASN 

NSM 

485 

IF(IHA1.GT.O.OR.IVUL1.GT.O}  GO  TO  10 

NSM 

490 

ITYAER»IHAZE 

NSM 

495 

IF  IZ(K).GT.a.O)  ITYAER«6 

NSM 

500 

IF  (Z(K).GT.9.0)  ITYAER* IVULCN+9 

NSM 

505 

IF  (Z(K).GT.30. )  ITYAER*15 

NSM 

510 

1HA1*1HAZE 

NSM 

515 

IVUL1 •IVULCN 

NSM 

520 

GO  TO  IS 

NSM 

525 

to 

IF(  IVUL1 .GT.0)ITYAER  =  IVUL1+9 

NSM 

530 

IF(IHAI.GT.O)  ITYAER«IHA1 

NSM 

535 

IF( I TYAER. GT, 1 5)  ITYAER* 1 5 

NSM 

540 

IF(IHA1 ,LE.O)  IHA1.IHAZE 

NSM 

545 

IF(IVULI.LE.O)  IVUL1 «IVULCN 

NSM 

550 

15 

IF  (K.EQ.1 )  GO  TO  20 

NSM 

555 

IF(N,EQ.7.AND.ITYAER.E!}.6.ANO.Z(K).GT.2.0)  GO  TO  17 

NSM 

560 

IF  (ITYAER. EQ.ICHUCO)  GO  TO  20 

NSM 

565 

17 

IC1*IC1+1 

NSM 

570 

ICL=0 

NSM 

575 

IF(RH.GT.O. )RHH*RH 

NSM 

5B0 

N«IC1+10 

NSM 

585 

IF  (IC1.LE.4)  GO  TO  20 

NSM 

590 

IC1»4 

NSM 

595 

N«14 

NSM 

800 

ITYAER*ICH(ICt) 

NSM 

605 

30 

ICH(IC1)«ITYAER 

NSM 

610 

J.lFIX(Z(K)+1.0E-6)+1 

NSM 

615 

IF  (Z(K).GE.25.0)  d.(Z(K)-25,0)/B.0*28. 

NSM 

630 

IF  (Z(K).GE.SO.O)  J«(Z(K)-50 . 0J/20 .0+31 , 

NSM 

625 

IF  (Z(K).GE,70.0)  J«(Z(K)-70.0)/30.0*32. 

NSM 

630 

IF  (d.GT.33)  d»33 

NSM 

635 

FAC*Z(K)-FLOAT(J-1) 

NSM 

640 

IF  (d.LT.26)  GO  TO  35 

NSM 

645 

FAC* (Z(X)-5.Q*FL0AT (d'!0)"25 . )/5. 

NSM 

850 

IF  (d.QE.31 )  FAC*(Z(H)-60.0)/20. 

NSM 

655 

IF  (U.GE.32)  FAC«[Z(K>-70.0)/30. 

NSM 

660 

IF  (FAC. GT.  1,0)  FAC1.0 

NSM 

665 

25 

L'JH 

NSM 

670 

T(K,7)»TMP+T0 

NSM 

675 

IF  (Ml .GY, 0 )  P(K,7)»P(d.M1 ) • ( P( L.M1 )/P( d ,M1 ) )»*FAC 

NSM 

680 

IF(P(K,7). LE.O. )P(K,7)«3.0E-» 

NSM 

61)6 

34 


4b 


C 

47 


50 


C 

C 


IF  (Mt.QT.O)  T(K,7)>T(J,M1).(T(L,M1)/T(o,M1))«*FAC 
IF(ZtK).GE.100.)KH(K.7)»0. 

IF{Z<K).GE.100.)GO  TO  35 

IF  (M2.GT.0)  WH<  K ,7) aWH{ U  »M2) *(WH( LiM2)/WH(d,M2) )**FAC 
IF(RH.GT.O. )  WH(K,7)«0. 

IF  (WH(K,7) .GT.0.0)  GO  TO  35 
IF  (RH. GT.0.0)  GO  TO  30 
DPK»TO+DP 
TT*TO/OPK 

WH(K,7).0PK*F(TT)/T(K,7) 

<30  TO  35 
30  TA*T0/T(K,7) 

WH(K.7)«F(TA)»0.01»RH 

35  CONTINUE  , 

IF  (M3.GT.0)  W0(K,7)«W0(  d ,M3) * (WQ( L,M3)/WQ(d ,M3) )*»FAC 
HSTOR(K)=0. 

IF  (HMIX(d).LE.O.)  GO  TO  40 
IF  (HMIX(L) .IE.O. )  GO  TO  40 
HSTORiK)=HMIX(d)*(HMIX(L)/HMIX(d))»*FAC 
40  CONTINUE 

OENSTY (7,K ) =0 . 

DENSTY ( 12, K)a0 . 

OENSTY ( 1 3, K ) «0 . 

DENSTY(14,K)aQ. 

OENSTY(lb,K)«0. 

PS»P(K, 71/1013.0 
TS*273 . 15/T (K,7 ) 

WTEMP-WH(K,7) 

RELHUM(K)«0. 

IF(WTEMP.LE.O. )  GO  TO  45 
RELHUMO<)  «  100.0.WTEMP/F(TS) 

IF(  RELHUM(K)  .GT.  100.)  RELHUM(X)*100. 

IF(  RELHUM(K)  .IT.  0.)  RELHUM(K)»0. 

RHH-RELHUM(K) 

RH«RHH 

IF( 1HAZE.EO.O)  GO  TO  SO 
IF  <  VIST . LE .0.0 )  VIS1«VIS 
IF  ( AHA2E . EO.O . 0 )  GO  TO  47 
OENSTY(N,K)»AHAZE 

AHAZE  IS  IN  LOW IRAN  NUMBER  OENSTY  UNITS 
GO  TO  50 

!P( IT1AER. EO. 3 . AND. ICO . EQ . 0 ) CALL  MARINE! VIS1 .MODEL. WSS.WHM. 
X  EXTC.A6SC.IC1) 

IF( ITYAER. EQ.3.AN0. ICL.EO.O)VIS»VIS1 
ICL«1 

CALL  AERPRF  (J.VISI.HAZI.IHAI.ISEAI.IVULI.NN) 

CALL  AERPRF  ( L. VIS1 .HAZ3 . 1HA1 . I5EA1.IVUL1 .NN) 

HAZE-O. 

IF  ( (NAZI . LE.O. 0) .OR. (HAZ2, LE.0.0) )  00  TO  50 

HAZE«HAZ1. (HAZ2/HAZ1 )»«FAC 

OENSTY(N.K).HAZE 

ITYt(K).tTYAER 

1H1 t  K ) • I HA 1 

lFiAHAZE,Nfi.0)IH1(K).-«9 
1SI (K)«I5EA1 
IVL1  (K)MVULI 
IFtK.LT. ML)  00  TO  1 

END  OF  LOOP 
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NSM 

830 

NSM 

835 
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850 
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NSM 
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NSM 
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NSM 
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875 

NSM 

880 

NNSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 
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NSM 

970 

NSM 

978 

35 


c 

60S 


IF(ML.LT.20)  WRITE  ( I PR, 903) 

$03  FORMAT ('0  ') 

IF(ML. GE . 20 )  WRITE  (iPR,900) 

900  FORMAT (’1  ') 

WRITE( I PR, 905) 

FORMAT(T7,'Z',Tl7,'P'.T26,'T',T32.'REL  H\  T4l,'Ha0‘,  T52,'03‘, 

1  T80, 'AEROSOL ‘ ,/.T6, ' (KM) 1 ,T16, * (MB) 1 ,T25, ' (K) ' ,T33, 1 (*)' , 

3  T39, 1 (GM  M-3)',T49,'(GM  M-3) ' ,T59, 'TYPE' ,T80, 'PROFILE' , 

3  TIOt, 'SEASON',/) 

DO  60  KK.1 , ML 
DO  52  i0«1  ,5 
AHOL1( 10). BLANK 
AHOL2(IO)« BLANK 
52  AHOL3( 10). BLANK 

IF(!HAZ£.£Q.0)  GO  TO  60 
ITYAER*1TY1 (KK) 

THAI *IH1 (KK) 

ISEA1»IS1(KK) 

XVUL1  -  I VL1  ( KK) 

OO  54  10-1 ,5 
AMOLt(lO)*H2(IO.ITYAER) 

AHOL2( IO)«AHUS( 10) 

JF(IVSA.EO.I)  AHOL2(IO).AHLVSA(IO) 

IF(AHAST(KK).E0.0)  AH0L2(I0).AH0L1 ( 10) 

54  IF  (Z(KK),GT.2.0)  AHOL3(IO).SEASN(IO,ISEA1) 

60  WRITE(IPR.915)Z(KK).P(KK,?),T(KK1?),RELHUM(KK),WH(KK,7),WO(KK,7), 

X  AHQL1 ,AHOL2,AHOL3 

915  FORMAT (2F1 0 . 3 ,2F8.2 , 1 P2E10.3, 2X,5A4, IX ,5A4, 1X,6A4) 

68  IF  (IC1.QE.4)  GO  TO  75 

IC2MC141 
00  70  KK.1C2.4 
70  ICH(KK)*ICM(KK-1 ) 

75  CONTINUE 
M.7 

IF(MODEL.EO-0)WRITE(1PR,903) 

if ( model .ne . o)  mooel-u 
return 
c 

BO  format  (3F10.3.2F5.1 . 2E1 0 . 3. E 1 0.3, F7.3.3I 1 ) 

85  FORMAT  (3F10.3.2F8.1 , 2E10 . 3, 2F10.3) 

90  FORMATCO  CARO  3«  1 .3F1 0. 3,2*5. 1 . 1P2E10 .3.0PF10 .3, 

X  'MOOEL  ZERO  INPUT') 

95  FORMAT  (3E1 0, 3 , 2F5. 1 , 3E > 0 ■ 3. FI 0,3. 4I3,4( 1X.2A4.A3) ) 
too  FORMAT  c  MOOEL  ATMOSPHERE  NO.  7') 

I  NO 


NSM  960 
NSM  965 
NSM  990 
NSM  995 
NSM  1000 
NSM  1005 
NSM  1010 
NSM  1015 
NSM  1020 
NSM  1025 
NSM  1030 
NSM  1035 
NSM  1040 
NSM  1045 
NSM  1050 
NSM  1055 
NSM  1060 
NSM  1065 
NSM  1070 
NSM  1075 
NSM  1060 
NSM  1065 
NSM  1090 
NSM  1095 
NSM  1100 
NSM  1105 


NSM 

NSM 


1110 

1113 


NSM  1120 
NSM  1 12S 
NSM  1130 
NSM  1135 
NSM  1140 
NSM  1145 
NSM  1150 
NSM  1155 
NSM  1160 
NSM  1165 
NSM  1170 
NSM  1178 
NSM  1180 
NSM  1165 
NSM  1190 
NSM  1105 
NSM  1200 
NSM  1205 
NSM  1219 
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SUBROUTINE  STDMOL 


THIS  SUBROUTINE  LOADS  ONE  OF  THE  6  STANDARD  ATMOSPHERIC  PROFILES 
INTO  COMMON/MODEL/  AND  CALCULATES  THE  DENSITIES  OF  THE 
VARIOUS  ABSORBING  GASES  AND  AEROSOLS 


COMMON  /IFIL/IRO.IPR.IPU.NPR 

COMMON  /CARD1 /  MODEL,ITVPE,IEMSCT,M1,M3,M3,IM,NOPRNT,TBOUND.SALB 
COMMON  /CARD2/  IHA2E , ISEASN, 1VULCN, ICSTL , ICIR, IVSA, VIS, MSS , WHH, 

1  RAINRT 

COMMON  /CARD3/  Ht ,H2, ANGLE .RANGE , BETA, RE, LEN 
COMMON  /CARD4/  V1.V2.DV 

COMMON  /MOATA/  2 ( 34 ) , P< 34 . 7) . T (34. 7) ,WH( 34 . 7) ,WQ(34. 7) , 

X  HM1X(34) 

COMMON  /CNSTNS/  PI ,CA,0EG,GCAIR,8IGNUM,BI0EXP 
COMMON  /CNTRL/  KMAX.M, IKMAX.NL, ML. IKLO.ISSGEO 
COMMON  /MODEL/  2M(34),PMl34).TM(34),RFN0X(34),DENSTY(t6.34) 
COMMON  RELHUM(34) .HST0RI34) , ICH<4 ) .VIK  16) ,TX( 16>,M< »6> 

COMMON  WPATH168, t 6 ) , TB8V l6S) 

COMMON  ABSC ( 4 , 40 ) , EX TCI  4 , 40) ,VX2(40) 

XLOSCH  .  LOSCHMIOT’S  NUMBER, MOLECULES  CM-2.XM-1 
DATA  P2ER0  /101 3 . 25/ , T ZERO/273. 15/ .XLOSCH/2 .6868E34/ 

RV  CAS  CONSTANT  FOR  WATER  IN  MB/(0M  M-3  K) 

CON  CONVERTS  WATER  VAPOR  FROM  GM  M-3  TO  MOLECULES  CM-2  KM-1 
OATA  RV/4. SI 52E-3/ .CON/3 . 3429E21 / 

CONSTANTS  FOR  INDEX  OF  REFRACTION.  AFTER  EOLEN,  1965 
DATA  AO/83.42/ . A1 /I PS . 08/ . A2/4 .11/. 

X  BI/1 . 140E5/ . B2/6 . 24E4/ . CO/43 . 49/ .Cl / 1 . T0E4/ 

F(A)  IS  SATURATED  WATER  WAPOR  DENSITY  AT  TEMP  T.A.TZERO/T 
F( A I-EXPI 1 8.9766-1 4. 9595* A-2 .43882 *A*A)*A 

H20  CONTINUUM  IS  STORED  AT  296  K  RH2ERO  IS  AIR  DENSITY  AT  296  X 
IN  UNITS  OF  LOSCHMIOT'S 

CALL  DRYSTR 
RH2EHO*(273, 15/296.0) 

LOAD  ATMOSPHERE  PROFILE  INTO  /MODEL/ 

MM)  *M 

IF(UI  .NE.Q.ANO.M.NE.Y)  UMUM1 
MM}*M 

1 F (M2  . NG  . 0 .  AND. M . NE . ? I  UM2.M2 
MM3>U 

IMMJ.NE.0.AHD.M.NE.7)  maljmo 

IF  IM.LT. 7)  ML«Nl 
OO  36  Ml. ML 
IP(U.N( .7|fh( I )*2( l ) 

PM(  IMPU.MMI) 

TMUMIU.MMI) 

PP.PSIll) 
t».  1*1(11 

FI « I  PP/P/ERO’/t  H/TJEROJ 
F3*tPV/P»EfiO)*538t(T*tHO/Tt) 

WTtUA.wH|t.MM2) 

RGLHUW(I|.0. 

RELKua  tS  CALCULATED  ONLY  Fq»  THE  60U«*4Y  LAYER  (0  TO  2  NR) 

SCALED  H20  OlNSttf 

OGNSTVi 1.) )*  O.I*wreM»»F2»»D.R 


STD 

100 

‘•STD 

105 

STO 

110 

STD 

115 

STD 

130 

••STD 

135 

STO 

130 

STD 

135 

STD 

140 

STO 

145 

STO 

150 

STD 

155 

STD 

<60 

STO 

105 

STO 

170 

STO 

175 

STO 

180 

STD 

185 

STO 

190 

STO 

195 

STD 

200 

STO 

305 

STO 

210 

STO 

215 

STO 

220 

STO 

225 

STO 

230 

STO 

335 

STD 

240 

STO 

245 

STD 

250 

STO 

255 

STO 

380 

STO 

265 

STD 

3/0 

STO 

275 

STO 

280 

STO 

285 

STO 

299 

STO 

295 

STO 

302 

STO 

305 

STO 

3lO 

STO 

315 

STO 

320 

STO 

325 

STO 

*330 

SVO 

335 

STO 

340 

STQ 

348 

STO 

350 

STD 

358 

STO 

36P 

STO 

365 

STO 

370 

STO 

375 

S«0 

390 

STO 

3»S 

STO 

3RD 

IF  IZM(1).GT.2.0)  GO  TO  tS 

TS  •  TZERC  /  TT 

RELHUM{ I )» IQO .0* IWTEMP/F(TS) ) 

IS  CONTINUE 

C  UN1F0RMALY  NIXED  GASES  OENSITYS 
OENSTY (2, I )-F1*F2**0.75 
C  UV  OZONE 

0ENSTY(8,I)«46.6667*WQ(I .NM3) 

C  IR  OZONE 

OENSTY ( 3, I ) ■  0ENSTY(8.I)»F2»«0.4 
C  N2  CONTINUUM 

0ENSTY(4.I )»0.8*F1*F2 
C  SELF  BROADENED  WATER 

RHOAIH  •  FI 

RH0H20  •  CON  «WTEMP/XL0SCH 
RHOFRN  ■  RHOAIR  -  RH0N20 
OENSTY i9, I ).  XtCSCH«RHOH20«»a/RH2ER0 
C  FOREIGN  BROADENED 

OENSTY ( 10 , I )•  XLQSCH*RK0H20«RH0FRN/RHZERO 
C  MTV-ECULAR  SCATTERING 

OENSTY (6,1)  •  FI 
C  AEROSOL  FOR  0  TO  2 KM 

IF (N. EG. 7)  GO  TO  30 

CALC  AERPRFt  l,  VIS. NAZE,  IMAZE .  ISEASN.  IVULCN.N) 

OENSTY (7,1 )  *0. 

C  AEROSOL  FOR  2  TO  9KM 

OENSTY ( 12. 1 ) *0 . 

C  AEROSOL  FOR  9  TO  ?OKM 

OENSTY( 13, I )«Q. 

C  AEROSOL  for  ABOVE  30 km 

0ENSTY(I4. I }.0, 

C  LOAD  AEROSOLS 

0£NS1y;N,1)*HAZE 
0€NSTV(h,l).NA2E 
20  CONTINUE 

C  RElITIVC  NJOiOITY  WEIGHTED  9Y  BOON  DRY  LAYER  AEROSOL.  (Q  TO  3  KM) 
OENSTY) 1$. I )«RELHUMi I ) -OENSfYlT, I ) 
f  DENSITY  t9.M  NO  LONGER  USED 

PENSTYtO.t )»0. 

) F(  IC**«  t ;  .GT.7)  eeNSTYUS.D.RCLNUMiDYDENSTYl  T2.1) 

C  NN01  th  ATM  *  CM  /KM 

CFNSTYUl ,  1  )•  FI*  rt»J*Ul*1.0E~4 
JFIMOOEL.EO.T)  OC'.STYU  I  .  t  ).F1*NST0«I  I  )«i  .OE-4 

c  CIRHfDS  CLOUD 

IF» ICIR.LQ.O!  OtNSTYtie.I)  *  0, 

C  8FN0A  *  R*rSAAT!VlTY  I 'INDEX  OF  R£F*ACi)OM 
C  FUfM  tOLfil.  ISSS 

FSsi3»»*tItlS>H 
AY'**0.t»lVI»V8l 

RFN3A1  I  )*i  (AO.Ai/i  t.«t*VAi/8l}**3)  *A3/tl  )*»?>)• 

X  (RR,»ZESei*lT2tR0**S,6)/»M$<i-<AV)i/CT***3>*I>FW/R«Ra)»l.e-* 

25  ccwMmrt 

IFIN9L-.I0.U  GO  TO  40 

oo  «  3*1, m 

NStftU»D.«0S)  I. «HU.«F(U.*M<U,(0S»;STYtN.n.«i*«.0*. **«WU), 
A  CiSNSTtiO,  u 
JO  ce-MTJNyt 

«e  (ifM.sjis) 

60  JS  «*I,MV 

«SI«f  ( t4«Mf08I  S.ZMIII.WMU.tMlD.i&ENSTYt*.!  ).K*I0.II). 

*  }), DtNJlYISJ. 4), MHStYtU.S), 04NJTY)  »*,)!, OtNSTYflS.O- 

*  SENS’ Yj  10,1)  ,«t.LmaA(  I ) 

35  CO*»U.vi/Z 

40  CFJN»t«V« 

635  F8*W.*‘  M4.#F»#,S.»!J.*.*T.I,»S.»«»t*9.3) 

610  FODMAftM' ■,/.*  4»»3S»HI55€  «40f  4l«S‘ 

»  *S, *}-.»«*.* I4. t !«»•*'. *2$, •t'.tJ5.-»C5'4T44>'C0}*'.TS<,-0J-( 

J  »*&.  •W'.TTJ.,t»I«iLT'.*63. ’«0l  SC»T*.T*5.> n-i'.  TiOj. 

3  '03  tUY)‘ 

A  .t*7. ■?**»•. *2$, •jNJ>,Ta».‘(SS4it«  LftsTMMi  USNItS)*. 

5  TtS  '  *V)  •  ,  T#« .  ’  j -I  * .  tft$,  ■  t  -  J  ' .  !  ICC. 

6  U’T*  CWf«YM‘.,» 

61$  FS4r.AT4’»‘.;V  *TMSsA«**St  S' .//. 

2  TSJ.’*t*SS5v  f.TfeJ.‘*E*Oim  }•-  *73.'At*CJ.r»  J'.TOJ. 
j  ‘Ajacssi  4  ,Tsa.-*saY*i'!'.t<6j.-i:;eev3-.tU'S, ■**'/. 

A  T9. '(««.•. tit, ■IY6!'.T2S,-t«5’(T35.,*S\/CM3  K*’,t*2. 
i  *AtV  CM/N'»,.TS*.,C-r.T$A.'i-)\TT4.',i»)'<t84.,i“r.T*41 

i  'i-J*.ti04.’l-J’.»*»».’E*«MC«T»’»/3 
(WO 
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SUBROUTINE  AERPRF  ( t , VIS , HAZE , 1HAZE, ISEASN , IVULCN, N) 

>*♦****♦••>*  *  +  ¥*****  +  ♦+******#  G  *********  W***^**w*******t  ****** 

will-  COMPUTE  DENSITY  PROFILES  ECR  AEROSOLS 
**♦**»=***»*,  ***••« 

COMMON/ PRFO  /ZHT(34) ,HZ2K(34,5),FAWI50(34).FAWI23(34).J 
1SPSU23(34) ,BASTFW(34) ,VUMOFW(34) ,HIVUFW(34) ,EXVUFN(34) ,8 
2VUMOSS(34)  .HIVUSS04)  ,EXVUSS(34)  ,UPNATM(34)  ,VUTQN0(34) , 

3VUT0EX(34) ,EXUPAT(34) 

DIMENSION  VS(5) 

DATA  VS/50. ,23. . 

HAZE“0. 

N*7 

IF  (IHAZE.EQ.O)  RETURN 
IF  ( ZHT ( I ) . GT .2- 0)  GO  TO  15 
DO  5  0=2,5 

IF  (VIS.GE.VS(U) )  GO  TO  10 
5  CONTINUE 
0=5 

10  CONST  =  1 »/(1 ./VS(0)-1 ./VS(0-1 )  ) 

HAZE=C0NST*((HZ2K(I ,0)-HZ2K( I ,0 
1 )/VS(0-1 ) ) 

RETURN 

15  IF  (ZHT(I) .GT.9.0)  GO  TO  35 
N=12 

CONST *1 ./(1./23.-1./50.) 

IF  (ISEASN. GT. 1 )  GO  TO  25 
IF  (VIS. LE.23. )  HAZE=SPSU23(I) 

IF  (VIS. LE.23.)  RETURN 
IF  (ZHT(I) .GT.4.0)  GO  TO  20 
HAZE  =  CONST  * ( ( SPSU23 ( I (-SPSU50 ( I 
RETURN 

20  HAZ£=SPSU50( I ) 

RETURN 

25  IF  (VIS. LE.23.)  HAZE«FAW123( I ) 

IF  (VIS. LE.23.)  RETURN 
IF  (ZHT(I) .GT.4.0)  GO  TO  30 
HAZE=CONST*  ( ( FAWI23(  I  )-FAWI50(  I )  )/VIS+FAWl50(I  )/23.-FAWia3(  I  )/50. )  AER 
RETURN 

30  HAZE=FAWI50(I) 

RETURN 

35  IF  (ZHT( I) .GT.30.0)  GO  TO  75 
N=13 

HAZE=BASTSS(I) 

IF  (ISEASN. GT. 1 )  GO  TO  55 
IF  (IVULCN.EQ.O)  HAZE*BASTSS( I ) 

IF  (IVULCN.EQ.O)  RETURN 
GO  TO  £40,45,30,50.45),  IVULCN 
40  HAZE=BASTSS(I) 

RETURN 

45  HAZE=VUM3SS( I ) 

RETURN 

50  HAZE*HIVUSS(I, 

RETURN 

55  IF  (IVULCN.EQ.O)  HAZE»BASTFW( l ) 

IF  (IVULCN.EQ.O)  RETURN 
GO  TO  (60,65,70,70,65),  IVULCN 
60  HAZE«BASTFK(I) 

RETURN 

65  HAZE«VUMOFW(I) 

RETURN 

70  HAZE.HIVUFW(l) 

RETURN 
75  N= 1 4 

IF  (IVULCN. GT.1)  GO  TO  80 
HAZE«UPNATM(I) 

RETURN 

80  HAZE«VUTONO(l) 

RETURN 
END 
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SUBROUTINE  DQv$m 
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WATIR  VAPOR  PRO'  U.E  SI'JR'.C  IN  MDLAUT  WItM 
A  "DRY"  WATER  vapor  pRO>  !  l.f  COR  RES  POND!  Nr.  TO 
A  CONSTANT  MASS  MIXING  RAT  10  Or  OR'MIX  |0RYM!<>2.6  PPMM 
FROM  P.  PfNNOORr  IR7H  ANALYSIS  OF  OZONE  AMO  WATER  VAPOR 
f i e i  (i  measurement  data  fAA-EE-78-29) 

TO  JNMUUF  THE  l'«>'  PMOKiE.  IMF.  USER  MUST  INCLUDE  A  CAM 
ORYSIW  IN  IMF.  HAIN  PWOORAM 


TO 


900 


COMMON  /  I  F  I  L  /  IRO,  IPIT,  IPU.NPR 

COMMON  /MITAT A/  21.14)  .Pt  34. 7)  .1(34,7  I  ,901.14,7)  ,90(34, 7>, 

HMIX134I 

OATA  ORYMIX  /2.GE-6/.RV  /2.8705E-3/ 

00  IP  1*1,6 
00  10  Nr  T  7 , 33 

WH(N. 1 ) r  ORYMI X*P I N , I >/|RV*T|N, I ) ) 

WRI I  £  I  I  PR. 900)  ORYMIX 

FORMAT  I  *  Water  vapor  PROFILE  HAS  BEEN  REPLACED  8Y  A1,/, 


X. 1PE 10. t ) 
RETURN 
END 


dpy 

100 

TV  E  ) 

ORY 

1  ‘0 

OR  < 

1  15 

DRY 

120 

DRY 

125 

0»Y 

no 

DRY 

135 

TO 

DRY 

140 

ORY 

145 

ORY 

155 

DRY 

160 

ORY 

165 

ORY 

170 

DRY 

•  175 

DRY 

*100 

DRY 

185 

DRY 

190 

DRY 

195 

RATIO 

OF ‘DRY 

200 

ORY 

205 

DRY 

210 

DRY 

215 

40 


SUBROUTINE  GEO ( I  ERROR , BENDNG )  GEO 

C*..****»* **♦«»***»*«.**«*»**«»«**«**********«*«»**»»*»***.**»»» ******  GEO 
C  THIS  SUBROUTINE  SERVES  AS  AN  INTERFACE  BETWEEN  THE  MAIN  GEO 

C  LQWTRAN6  PROGRAM  1 LWTRN61  ANO  THE  NEW  SET  OF  SUBROUTINES,  GEO 

C  INCLUDING  1 GEOINP 1 ,  'REDUCE',  ' FDBETA' ,  'EXPINT',  ' FNONMN' ,  GEO 

C  ' FINDSH* ,  'SCALHT',  'ANDEX',  'RADREF',  'RFPATH',  'FILL*,  GEO 

C  AND  'LAYER',  WHICH  CALCULATE  THE  ABSORBER  GEO 

C  AMOUNTS  FOR  A  REFRACTED  PATH  THROUGH  THE  ATMOSPHERE.  GEO 

C  THE  INPUT  PARAMETERS  I  TYPE,  Hi,  H2,  ANGLE,  RANGE,  BETA,  AND  LEN  GEO 

C  ALL  FUNCTION  IN  THE  SAME  WAY  IN  THE  NEW  ROUTINES  AS  IN  THE  OLD.  GEO 

C*.. *•**♦•.**•***.•**«**•*•••****.**.**••***. ***•.**•*••*****•****••*•  GEO 
COMMON  RELHUM(34) ,HST0R(34) ,ICH(4),VH(16),TX(16),W(16)  GEO 

COMMON  WPATH(68, 16) ,TBBY(68)  GEO 

COMMON  ABSC(4,40) ,EXTC(4,40) ,VX2(40)  GEO 

COMMON  /IFIL/IRD, IPR, IPU.NPR  GEO 

COMMON  /CARD1 /  MODEL, I  TYPE , IEMSCT.M1 ,M2,M3, IM, NOPRNT , YBOUND.SALB  GEO 
COMMON  /CARD2/  IHAZE, ISEASN, IVULCN, ICSTL, IC1R, IVSA,VIS,WSS,WHH,  GEO 
1  RAINRT  GEO 

COMMON  /CARDS/  HI  ,ri2,  ANGLE, RANGE, BETA, REE ,  LEN  GEO 

COMMON  /CARD4/  VI ,V2,DV  GEO 

COMMON  /CNSTNS/  PI ,CA,DEG,GCA1R,BIGNUM,BIGEXP  GEO 

COMMON  /CNTRL/  KMAX.M,  IK.MAX ,  NL.ML,  IKLO,  ISSGEU  GEO 

COMMON  /MODEL/  ZM(34) , PM(34) ,TM(34) ,RFNDX(34) , DENSTY( 18,34)  GEO 

COMMON  /PARMTR/  RE, DELTAS, ZMAX, IMAX, IMOD, IBMAX, IPATH  GEO 

COMMON  /RFRPTH/  2P( 35) , PP(35) , TP(35) ,4FNDXP(35) ,SP(35) ,  GEO 

1  PPSUM(35) , TPSUM( 35 ) , RH0PSM(35) , DENP( 16,35) ,AMTP( 16,35)  GEO 

COMMON  /SOLS/  AH1 ( 68) >  ARH(68) ,  GEO 

X  WPATHSl 68 , 1 6 ) , PA ( 68 ) , PR ( 68 ) , ATHETA ( 35 ) , AOBETA( 35 ) . LU ( 89 ) , JTURN , GEO 

X  ANGSUN  GEO 

DIMENSION  KMQL{ 16)  GEO 

C*«***KMOMK)  IS  A  POINTER  USEO  TO  REORDER  THE  AMOUNTS  WHEN  PRINTING  GEO 
DATA  KMOL/I ,2.3,11 ,8,5,9,10,4,6,7, 12, 13,14, 16, t 5/  GEO 

C*»*««INIT1ALIZE  CONSTANTS  ANO  CLEAR  CUMULATIVE  VARIABLES  GEO 

C***««OELTAS  IS  THE  NOMINAL  PATH  LENGTH  INCRENMENT  USED  IN  THE  RAY  TRACEGEO 
DELTAS  •  5.0  GEO 

TERROR  •  0  GEO 

RE  •  REE  GEO 

IMOD  •  ML  GEO 

IMAX  •  ML  GEO 

C««***ZERO  OUT  CUMULATIVE  VARIABLES  GEO 

00  100  t.1 .35  GEO 

PPSUM(I)  .0.0  GEO 

TPSUMU)  «  0.0  GEO 

RHOPSM(I)  »  0.0  GEO 

00  100  K.1.KMAX  OEO 

AMT P ( K , I J  •  0.0  GEO 

100  CONTINUE  OEO 

ZMAX.ZM( IMAX)  GEO 

IFiMOOEL.EO.O)  GO  TO  145  GEO 

IF( l SSGEO . EO. 1 )  00  TO  200  GEO 

IF(ITYPE.GE.O)  GO  TO  200  GEO 

C«**.*hORIZDNTAL  PATH,  MODEL  EQ  I  TO  It  INTERPOLATE  PROFILE  TO  HI  GEO 

00  130  I.2.ML  OEO 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

165 

190 

195 

200 

205 

210 

21S 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

353 

360 


12  •  I  GEO  369 

!F(H1 . LT .2M(I ))  00  TO  130  OEO  370 

120  CONTINUE  GEO  379 

130  CONTINUE  OEO  380 

II  •  12-1  OEO  369 

FAC  «  (M1”ZM(  1 1 )  )/(2M(  I2)“ZA!(  II))  OEO  300 


laji 

m 

i 


,«3 


i 


7P(1)  «  HI 

CALL  EXPINT ( PP( 1 ) , PM( II ) , PM< 12) ,FAC) 

TP{  1 )  «  TM(I1)+(TM(I2)-TM(I1))*FAC 
00  140  K«1,KMAX 

CALL  EXPINT(0ENP(K,1).0ENSTY(K,I1) ,0ENSTY(K,I2) ,FAC) 

140  CONTINUE 

C»*«**CALCULAT£  ABSORBER  AMOUNTS  FOR  A  HORIZONTAL  PATH 
146  WRITE(IPR,36)  HI .RANGE, MOOEL 

36  FORMAT ( 'OHORIZONTAL  PATH  AT  ALTITUOE  ■  ' .F10.3, 

1  1  KM  KITH  RANGE  ■  * ,F10.3,‘  KM.  MOOEL  ■  ’.13) 

IKMAX  *  1 

IF(MOCEL.EQ.O)  TP(1).TM(t) 

TBBY(I)  -  TP{1) 

DO  160  K.1.KMAX 

IF(MODEL.EO.O)  DENP(K.I)  *  DENSTY(K.I) 

W(K)  «  06NP(K,1)»RANGE 
WPATH(I.K)  *  W(K) 

160  CONTINUE 

WTEM  .  (296. 0-TP( 1 ) )/<296. 0-260.0! 

IF(WTEM.LT.O.)WTEM.O. 

1F(WTEM.GT.1)WTEM»1. 

W(9)*W(5)*WTEM 
WPATH(1 ,9)  •  W(9 ) 

GO  TO  320 
200  CONTINUE 

C****«SLANT  PATH  SELECTED 
C*«»«»INTERPRET  SLANT  PATH  PARAMETERS 

CALL  GE0INP(H1,H2 .ANGLE. RANGE, BETA. ITYPE, LEN.HMIN, PHI, IERROR) 

I F ( I  ERROR. EO.O)  GO  TO  210 
IF( ISSGEO.NE. 1)WRITE(IPR,38) 

36  FORMAT ( ' OQEOt  IERROR  NE  01  END  THIS  CALCULATION  AND  SKIP  TO' 

1  . •  THE  NEXT  CASE 1 ) 

RETURN 

210  CONTINUE 

C*****CALCULATE  THE  PATH  THROUGH  THE  ATMOSPHERE 
I AMT  .  1 

CALL  RFPATH(H1,H2, ANGLE, PHI, LEN.HM1N.IAMT, BETA, RANGE, BENONG) 
C»»»»«UNFOLD  LAYER  AMOUNTS  IN  AMTP  INTO  THE  CUMULATIVE 
C*****AMOUNT$  IN  WPATH  FROM  HI  TO  H2 
DO  220  I.1.IPATH 
IF(HI.EO.ZPd))  IH1  ■  I 
IF(H2.E0.ZP(l))  1H2  •  I 
220  CONTINUE 

UMAX  .  (IPATH-1 )+LEN*(MIN0(lH1 ,IH2)-1) 

IKMAX  •  UMAX 

e****«DETERMlNE  IJ(d),  WHICH  IS  THE  NUMBER  OF  THE  LAYER  IN  AMTP(K.L). 
C*«*»*START!NG  FROM  HMIN,  WHICH  CORRESPONDS  TO  THE  LAYER  J  IN 
C**«**WPATH(U,K) ,  STARTING  FROM  HI 
C»***«1NIT1AL  DIRECTION  OF  RATH  IS  DOWN 
L  •  IH1 
LOEL  ■  -1 

IF.( LEN, EQ,  1  .OR.  H1.0T.H2)  GO  TO  230 
C»***«INITIAL  DIRECTION  OF  PATH  IS  UP 
L  •  0 
LOEL  •  1 
230  CONTI  HUE 
UTURN  •  0 
UMAXrt.UMAX+1 
DO  280  J.1.JMAXP1 
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GEO 
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565 
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580 
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590 
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635 
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640 
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C***»»TEST  FOR  REVERSING  DIRECTION  OF  PATH  FROM  DOWN  TO  UP 

GEO 

690 

IF(L.NE.1  .OR.  IDEL.NE.-1)  GO  TO  240 

GEO 

695 

dTURN  •  d 

GEO 

700 

L  *  0 

GEO 

705 

LDEL  »  +1 

GEO 

710 

240  CONTINUE 

GEO 

715 

L  «  L+LDEL 

GEO 

720 

Ld(d)  »  L 

GEO 

725 

250  CONTINUE 

GEO 

730 

c«*«*+load  TBSY  and  wpath 

GEO 

735 

C**»»*TBBY  IS  DENSITY  WEIGHTED  MEAN  TEMPERATURE 

GEO 

740 

amttot.o. 

GEO 

745 

DO  255  K-1.KMAX 

GEO 

750 

255  WPATH(I.K)  *  0.0 

GEO 

755 

00  265  d«1 . UMAX 

GEO 

760 

L  «  Ld(d) 

GEO 

765 

TBBY(d)  =  TPSUM(L)/RHOPSM(L) 

GEO 

770 

AMTTOT«AMTTOT+RHOPSM( L) 

GEO 

775 

dl  -  d-1 

GEO 

780 

IF(d1 .EQ.O)  J1  »  1 

GEO 

785 

DO  260  K«1 , KMAX 

GEO 

790 

I F ( K . EO . 9 )  GO  TO  230 

GEO 

795 

WPATH(d.K)  «  WPATH(d1,K)+AMTP(K,L) 

GEO 

800 

260  CONTINUE 

GEO 

805 

WTEM  -  (296. 0-TBBY(d))/<296. 0-260.0) 

GEO 

810 

IF(WTEM.LT.O.O)  WTEM  «  0. 

GEO 

815 

IF(WTEM,GT ,1,0)  WTEM  «  1.0 

GEO 

820 

WPATH(d,9)  ■>  WPATH(d1 ,9)+WTEM*AMTP(6,L) 

GEO 

825 

265  CONTINUE 

GEO 

830 

DO  270  K*1 , KMAX 

GEO 

835 

H(K)  »  WPATH(JMAX.K) 

GEO 

840 

270  CONTINUE 

GEO 

845 

C**«*«INCLUDE  BOUNDARY  EMISSION  tF! 

GEO 

850 

1.  NON  ZERO  T80UND  IS  READ  IN  ON  CARD  1 

GEO 

855 

C**»*«  2.  SLANT  PATH  INTERSECTS  THE  EARTH  (TBOUNO 

GEO 

860 

C*«*««  SET  TO  TEMPERATURE  OF  LOWEST  BOUNDARY) 

GEO 

865 

I F( TBOUNO. EQ.0.0 . AND. H2.EQ.ZM( 1 ) )  TBOUND.TM(I) 

GEO 

870 

C****»PRINT  CUMULATIVE  ABSORBER  AMOUNTS 

GEO 

875 

IF(NPR.EQ. 1 !  00  TO  315 

GEO 

880 

WRIT£( IPR.42) 

QEO 

885 

42  FORMAT (////, 1  CUMULATIVE  ABSORBER  AMOUNTS  FOR  THE  PATH 

FROM' 

GEO 

890 

1  .'  HI  TO  Z,.//,T3,1d,,T91,Zl,T18,'TBAR'(T30.,H20,1 

GEO 

895 

2  T42, 'C02+' ,T54, '03' .T66, 'HN03‘ ,  T77  ,'03  UV\ T86, 'CNTMSLF1  ' 

GEO 

900 

♦  T098, 'CNTMSLF2* .Till, 'CNTMFRN* 

GEO 

905 

3  /.T8, 1 (KM) 1 , TIB, 1 (K) 1 .T31 . 1 (SCALED  LOWTRAN  UNITS)' 

.  GEO 

910 

4  T62,'(ATM  CM) 1 , T74,  (ATM  CM)1, 

GEO 

915 

5  T84, 1 (MOL  CM-2) ' ,T96, ' (MOL  CM-2) 1 ,TlOB, ' (MOL  CM-2)' 

./) 

GEO 

920 

C»«**»GOING  DOWN,  LP  >  0 ,  GOING  UP,  LP  •  1 

GEO 

925 

LP  ■>  1 

GEO 

930 

IFfLEN.EO. 1  .OR.  H1.0T.H2)  LP  •  0 

GEO 

935 

00  300  dol .UMAX 

GEO 

940 

L  *  LJ(d) 

GEO 

945 

IF(d.EQ. dTURN)  LP  «  1 

GEO 

950 

LZ  .  L+LP 

GEO 

955 

1 F ( NPR . NE . 1 ) WRITE ( I  PR , 44 ) d ,ZP( LZ ) , TBBY(d) , ( WPATH( J , KMOL(K) ) , K« 

GEO 

960 

X  1,8) 

GEO 

966 

44  FORMAT ( 13 , P9, 3 ,  F9.2. 1 P8E12.3) 

GEO 

870 

300  CONTINUE 

GEO 

875 

IF(NPR.NE,1)WRITE(IPR,46) 

GF.Q 

800 
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•^•J^Av1S.1-,,l‘v1V^AV,'_v-_S~(v.WJs.1‘.^sW.VV-v1a’^\V.>-.vv. 


46  FORMAT  (///  ,T3,  ‘  J  '  ,  T09 ,  ' Z '  ,T  1 7,  ' N2  CONT'  ,T28,  'MOL.  SCAT',T43, 

1  ‘AER  1',T55,'AER  2',T67,'A£R  3' ,T79, 'AER  4' ,T091 , 'CIRRUS' ,/ 

2  ,T8,'(KM)',/> 

UP  •  1 


IF(LEN.EQ.1  .OR.  H1.GT.H2)  LP  •  0 
DO  310  U-1 .UMAX 
L  *  LU(J) 

IF(U.EQ.UTURN)  LP  *  1 
LZ  =  L+LP 

IF(NPR,NE.1)WRIT£(IPR,48)  d,ZP( LZ) . (WPATH(d,KMOL(K) ) ,K«9, 1 5) 
48  FORMAT (I3,F9.3,1P7E12.3) 

310  CONTINUE 


C*»*«*PRINT  PATH  SUMMARY 

315  I F ( ISSGEO. EQ.  1 )  GO  TO  320 

WRITE ( IPR , 40)H1 ,H2 .ANGLE, RANGE , BETA, PHI , HMIN.BENDNG, LEN 


40  FORMAT!//, 'OSUMMARY  OF  THE  GEOMETRY  CALCULATION 


' .F10-3, 1  KM' ,/,lOX, ' H2 
1  ,  FI  0. 3 ,  '  D,EG' ,/,lOX, 'RANGE 
'  .F10.3, '  DEG' ,/,10X, 'PHI 
' , F10 . 3, '  KM' ,/,lOX, 'BENDING 
' ,110) 


,//, 

,  F10.3, '  KM',/, 
,F10.3, '  KM',/, 
, F10.3 , ' 


DEG',/, 
,F10.3, '  DEG',/, 


1  lOX.'HI 
1 10X, 'ANGLE 
31  OX, 'BETA 

4  10X, ‘HMIN 

5  1 0X, 'LEN 
320  CONTINUE 

C*»«**CALCULATE  THE  AEROSOL  WEIGHTED  MEAN  RH 

IF(W(7).GT.0.0  .AND.  ICH(1).LE.7)  W( 15)  *  W(15)/W(7) 

IF(W( 12) .GT.0.0  .AND.  ICH(1).GT.7)  W(15)  »  W(15)/K(12) 

C*»«*»PRINT  TOTAL  PATH  AMOUNTS 
IF( ISSGEO. EQ.1)  RETURN 
WRITE! IPR, 50)  ( W(KMOL(K> ) ,K=1 ,16) 

50  FORMAT!////,'  EQUIVALENT  SEA  LEVEL  TOTAL  ABSORBER  AMOUNTS',//, 

1  T18,'H20',T30,'C02+',T42,’03',T54,'HN03',T65,'03  UV, 

2  T7S, ‘CNTMSLF1 1 ,187, ' CNTMSLF2 ' , T100 , ' CNTMFRN ' , 

+  /.T20, ' (SCALED  LOWTRAN  UNITS) ' , 

3  T50, ' (ATM  CM) ' ,T63, '(ATM  CM)',T73, 

4  '(MOL  CM-2) 1 ,T85, ' (MOL  CM-2) ' ,T97, '  (MOL  CM-2) ' , 

+  //,10X,1P8E12.3,/// , 

5  T1S,'N2  CONT' ,T26, 'MOL  SCAT' ,T41 . ‘AER  1',  T53, 'AER  2', 

6  T65, 1 AER  3' , T77 ,  ' AER  4' , T87 , ‘CIRRUS ' , T99, 'MEAN  RH '/, 

7  T99, 1 ( PRCNT ) ' ,//, 10X, 1P7E12 . 3. 0PF12.2) 

RETURN 

END 


GEO  985 
GEO  990 
GEO  995 
GEO  1000 
GEO  1005 
GEO  1010 
GEO  1015 
GEO  1020 
GEO  1025 
GEO  1030 
GEO  1035 
GEO  1040 
GEO  1045 
GEO  1050 
GEO  1055 
GEO  1060 
GEO  1065 
GEO  1070 
GEO  1075 
GEO  1080 
GEO  1085 
GEO  1090 
GEO  1095 
GEO  1100 
GEO  1105 
GEO  1110 
GEO  1115 
GEO  1120 
GEO  1125 
GEO  1130 
GEO  1135 
GEO  1140 
GEO  1145 
GEO  1150 
GEO  1165 
GEO  1180 
GEO  1165 
GEO  1170 
GEO  1175 
GEO  1180 
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SUBROUTINE  GE0INP(H1 ,H2 , ANGLE , RANGE .BETA , I TYPE , L EN , HMIN, PHI ,  GIN 

1  I  ERROR )  GIN 

C*  *******************************************************************  ****GIN 
C  GEOINP  INTERPRETS  THE  ALLOWABLE  COMBINATIONS  OF  INPUT  PATH  GIN 

C  PARAMETERS  INTO  THE  STANOARO  SET  HI ,H2, ANGLE, PHI ,HMIN,  AND  IEN.  GIN 

C  THE  ALLOWABLE  COMBINATIONS  OF  INPUT  PARAMETERS  ARE-  FOR  ITYPE  t  2, GIN 

C  (SLANT  PATH  HI  TO  H2)  a.  HI,  H2,  and  ANGLE,  a.  HI,  angle,  and  gin 

C  RANGE,  C.  HI.  H2 .  AND  RANGE,  D.  HI.  H2 ,  AND  BETA  -  GIN 

C  FOR  ITYPE  *  3  (SLANT  PATH  HI  TO  SPACE  H2  »  100  KM),  GIN 

C  A.  HI  ANO  ANGLE,  B.  Hi  AND  HMIN  (INPUT  AS  H2).  GIN 

C  THE  SUBROUTINE  ALSO  DETECTS  BAD  INPUT  (IMPOSSIBLE  GEOMETRY)  AND  GIN 

C  ITYPE  «  2  CASES  WHICH  INTERSECT  THE  EARTH,  AND  RETURNS  THESE  GIN 

C  CASES  WITH  ERROR  FLAGS.  GIN 

C  THE  SUBROUTINE  FNDHMN  IS  CALLED  TO  CALCULATE  HMIN,  THE  MINIMUM  GIN 

C  HEIGHT  ALONG  THE  PATH,  ANO  PHI,  THE  ZENITH  ANGLE  AT  H2,  USING  THE  GIN 

C  ATMOSPHERIC  PROFILE  STORED  IN  /MODEL/  GIN 

C*****»»***««»****»*»* »**««***« ****»****«»****»***»*«»**************»» **gin 
COMMON  /IFIL/  IRD , IPR , I PU.NPR  GIN 

COMMON  /PARMTR/  re.deltas.zmax, imax, imod, ibmax, ipath  gin 

COMMON  /CNSTNS/  PI ,CA.OEG,GCAIR,BlGNUM,BIGEXP  GIN 

ITER  =  0  GIN 

I F ( ITYPE. NE. 3)  GO  TO  120  GIN 

C«**»*SLANT  PATH  TO  SPACE  GIN 

C*««**N0TE:  IF  BOTH  HMIN  ANO  ANGLE  ARE  ZERO,  THEN  ANGLE  IS  GIN 

C***«* ASSUMED  SPECIFIED  GIN 

IF(H2.NE.O.O)  GO  TO  110  GIN 

C*****CASE  3A!  HI .SPACE, ANGLE  GIN 

IF(NPR.NE,1 )WRITE(IPR,10)  GIN 

10  FORMAT (//, 1  CASE  3A:  GIVEN  HI ,H2«SPACE, ANGLE1 )  GIN 

H2  «  ZMAX  GIN 

CALL  FNDHMN (HI , ANGLE ,H2 , LEN, I TER, HMIN, PHI , I ERROR)  GIN 

IF( lERRdR. EQ. -5)  RETURN  GIN 

GO  TO  200  GIN 

110  CONTINUE  GIN 

C**»*»CASE  3B!  HI , HMIN, SPACE  GIN 

IF(NPR.NE.1)WRITE(IPR,12)  GIN 

12  FORMAT!//, 1  CASE  3B:  GIVEN  HI ,  HMIN,  H2«SPACE'->  GIN 

HMIN  •  H2  GIN 

H2  «  ZMAX  GIN 

IF(H1  ,'LT.HMIN)  GO  TO  9001  GIN 

CALL  FNDHMN(HM1N, 90.0. HI ,LEN, ITER. HMIN, ANGLE, IERROR)  GIN 

CALL  FNDHMN(HMIN, 90. 0.H2, LEN, ITER, HMIN, PHI, IERROR)  GIN 

IF(HMIN.IT.HI)  LEN  •  1  GIN 

GO  TO  200  GIN 

120  CONTINUE  GIN 

IFUTYPE.NE.2)  GO  TO  9002  GIN 

IF(RANGE.NE.O.O.OR.BETA.NE.O.O)  GO  TO  30  GIN 

C**«**CASE  2A!  HI,  H2,  ANGLE  GIN 

IF(NPR,NE. 1 )WRITE( IPR, 16)  GIN 

16  FORMAT!//,  1  CASE  2A:  GIVEN  HI,  H2,  -NGlE1)  GIN 

IF(H1 .GE.H2. ANO. ANGLE. LE, 90.0)  GO  TO  9004  OIN 

I F ( H 1 . EQ , 0 . 0  .AND.  ANGLE .GT. 90 . 0)  GO  TO  9007  GIN 

IF(H2.LT. HI. AND. ANGLE. GT. 90.0. AND. NPR.NE.1)  WRITE(IPR.IB)  LEN  GIN 

16  FORMAT (//,  ’  EITHER  A  SHORT  PATH  (LEN-0)  OR  A  LONG  PATH  1 ,  GIN 

1  'THROUGH  A  TANGENT  HEIGHT  (LEN-1)  IS  POCSIBLEI  LEN  •  ',  GIN 

2  13)  GIN 

H2ST  «  H2  GIN 

CALL  FN0HMN(H1 .ANGLE, H2 , LEN, ITFR, HMIN, PHI, IERROR)  GIN 

IF(H2.NE.H2ST)  GO  TO  9007  OIN 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

1B5 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

265 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

380 

3B5 

390 


II 


i 


00  TO  200  GIN 

130  CONTINUE  GIN 

IF(BETA.EO.O.O)  GO  TO  133  GIN 

CALL  FD8ETA(H1,H2. BETA. ANGLE, PHI, LEN.HMIN.IERROR)  GIN 

QO  TO  200  GIN 

133  CONTINUE  GIN 

IF(ANGLE.EQ.O.O)  GO  TO  140  GIN 

C**«»*CASE  28:  HI,  ANGLE,  RANGE  GIN 

C****«aSSUME  NO  REFRACTION  GIN 

IF(NPR.NE.1)WRITE(IPR,18)  GIN 

18  FORMAT(//, *  CASE  28:.  GIVEN  HI,  ANGLE,  RANGE1,//  GIN 

1  10X, 'NOTE:  H2  IS  COMPUTED  FROM  HI,  ANGLE,  AND  RANGE  ',  GIN 

2  'ASSUMING  NO  REFRACTION1 )  GIN 

R1  »  RE+H1  GIN 

R2  •  SQRT(R1**2+RANGE«*2+2.0*R1*RANGE*COS(+ANGLE/OEQ))  GIN 

H2  »  R2-RE  GIN 

IF(H2.GE.O.O)  GO  TO  135  GIN 

H2  >  0.0  GIN 

R2  «  RE+H2  GIN 

RANGE  »  -R1*C0S(ANGLE/0EG)-S0RT(R2**2-R1**2«(SIN(ANGLE/DEG))*»a)  GIN 
IF(NPR.NE.1)WRITE(IPR,17)  RANGE  GIN 

17  FORMAT!//, 10X, 'CALCULATED  H2  IS  LESS  THAN  ZERO:',/,  GIN 

1  10X, 'RESET  H2  «  0.0  AND  RANGE  *  *,F10.3)  GIN 

135  CONTINUE  GIN 

C****«NOTE:  GEOMETRIC  PHI  IS  NEEDED  TO  DETERMINE  LENIO  OR  1).  GIN 

C*****PHI  IS  THEN  RECOMPUTED  IN  FNDHMN  GIN 

PHI  •  180.0-AC0S! (R2»*2+RANGE**2-R1**2)/(2.0«R2*RANGE))*OEG  GIN 

LEN  «  0  GIN 

IF(ANGLE.GT. 90.0. AND. PHI. GT. 90.0)  LEN  »  1  GIN 

CALL  FNDHMN (HI, ANGLE, H2, LEN, ITER, HMIN, PHI, IERROR)  GIN 

GO  TO  200  GIN 

140  CONTINUE  GIN 

C*»*.*CASE  2C:  Ht,  H2,  RANGE  GIN 

IF(NPR.NE.1)NRITE(IPR,19)  GIN 

19  FORMAT!//,'  CASE  2C:  GIVEN  HI ,  H2.  RANGE',//,  GIN 

1  10X, 'NOTE:  ANGLE  IS  COMPUTED  FROM  Hi,  H2,  AND  RANGE  ',  GIN 

2  'ASSUMING  NO  REFRACTION' )  GIN 

IF{ABS(H1-H2).GT. RANGE)  GO  TO  9003  GIN 

Rt  >  H1+RE  GIN 

R2  «  H2+RE  GIN 

ANGLE  •  180.0-AC0S(!R1*‘2+RANGE**2-R2»«2)/(2.0»R1*RANGE))*DEQ  GIN 

PHI  *  180.0-ACOS((R2**2+RANGE»»2-R1»*2)/(2.0*R2*RANGE))*OEG  GIN 

LEN  ■  0  GIN 

IF(ANGLE.GT. 90.0. AND. PHI. GT. 90.0)  LEN  •  1  GIN 

CALL  FNDHMN<H1, ANGLE, H2, LEN, ITER, HMIN, PHI, IERROR)  GIN 

200  CONTINUE  GIN 

C*****TEST  IERROR  AND  RECHECK  LEN  GIN 

IF! IERROR. NE.O)  RETURN  GIN 

LEN  *  0  OIN 

1 F(HMIN. LT . AMINt (HI ,H2 ) )  LEN  •  1  GIN 

C»****REDUCE  PATH  ENOPOINTS  ABOVE  ZMAX  TO  ZMAX  GIN 

IF(HMIN.GE.ZMAX)  GO  10  900B  GIN 

IF(H1.GT.ZMAX  ,OR.  H2.QT.ZMAX)  call  REDUCE(H1 ,H2, ANGLE, PHI, ITER)  GIN 
C»*«*»aT  THIS  POINT  THE  FOLLOWING  PARAMETERS  ARE  DEFINED:  GIN 

HI ,H2, ANGLE, PHI ,HMIN, LEN  GIN 

IF(NPR .NE, 1 ) WR1 TE( IPR , 20 )  HI ,H2 .ANGLE , PHI .HMIN , LEN  GIN 

30  FORMAT!///,'  SLANT  PATH  PARAMETERS  IN  STANDARD  FORM',//,  GIN 

1  10X,'H1  •  ' , FI  0 . 3 , '  KM' ,/, 10X, 'H2  •  '.F10.3,'  KM',/,  GIN 

2  10X, 'ANGLE  •  \Fl0.3,'  DEO' ,/ ,  10X, 1  PHI  ■  '.F10.3,'  DEG', /.GIN 


395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

485 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

580 

585 

570 

575 

580 

585 

590 

595 

600 

605 

610 

615 

620 

625 

830 

635 

640 

645 

650 

655 

660 

668 

670 

678 

680 

685 
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Hr 


V>VN  V>V»  bUN*  .  *M  ffi.  »J|  M»J  JL  ML.  fjf.  k.* 


1 , F10.3, 1  KM1 ,/,10X, 1 LEN 


«  ' ,110) 


3  lOX.'HMIN 
RETURN 


C*****ERR0R  MESAGES 

9001  CONTINUE 
WRITE(IPR,40)  H1.HMIN 

40  FORMAT ('OGEOINP,  CASE  3B  (Hi ,HMIN, SPACE) i  ERROR  IN  INPUT  DATA', 

1  //.lOX.'Ht  *  ' ,Ft2.6, '  IS  LESS  THAN  HMIN  •  ‘.F12.6) 

GO  TO  9900 

9002  WRITE( IPR, 42)  ITYPE, ITYPE 

42  FORMAT ( 1 OGEOINP :  ERROR  IN  INPUT  DATA,  ITYPE  NOT  EQUAL  TO  •, 

1  1  2,  OR  3.  ITYPE  «  1 ,I10,E23.14) 

GO  TO  9900 

9003  WRITE( IPR, 43)  HI ,H2, RANGE 

43  FORMAT ('OGEOINP,  CASE  2C  (HI ,H2, RANGE) i  ERROR  IN  INPUT  DATA',//, 
110X,'ABS(H1-H2)  GT  RANGE;  HI  «  '.F12.6,1  H2  »  ',F12.6, 

2  1  RANGE  «  1 , F12.6) 

GO  TO  9900 

9004  CONTINUE 

WRITE( IPR, 44)  HI ,H2, ANGLE 

44  FORMAT ('OGEOINP,  CASE  2A  (HI ,H2, ANGLE) :  ERROR  IN  INPUT  DATA', 

1  // , 1 0X, 'HI  *  ' , F12.6, '  IS  GREATER  THAN  OR  EQUAL  TO  H2  «  \ 

2  F12.6  ,/,10X,'AN0  ANGLE  «  • , P12.6, *  IS  LESS  THAN  OR 

3  'EQUAL  TO  90.0‘) 

GO  TO  9900 

9007  WRITE (IPR, 48) 

48  FORMAT ('OGEOINP,  I TYPE  *  2:  SLANT  PATH  INTERSECTS  THE  EARTH', 

1  '  AND  CANNOT  REACH  H2') 

GO  TO  9900 

9008  WRITE( IPR, 50)  ZMAX.H1 .H2.HMIN 

50  FORMATC  GEOINP-  THE  ENTIRE  PATH  LIES  ABOVE  THE  TOP  ZMAX  ', 

1  'OF  THE  ATMOSPHERIC  PROFILE' ,//,10X, 'ZMAX  -  ',G12.6,8X, 

2  ’  HI  •  \G12.6,5X,‘  H2  »  \G12.6,'  HMIN  •  •  ,G12.6) 

9900  I ERROR  «  1 

RETURN 

END 


GIN 

690 

GIN 

695 

GIN 

700 

GIN 

705 

GIN 

710 

GIN 

715 

GIN 

720 

GIN 

725 

GIN 

730 

GIN 

735 

GIN 

740 

GIN 

745 

GIN 

750 

GIN 

755 

GIN 

760 

GIN 

765 

GIN 

770 

GIN 

775 

GIN 

780 

GIN 

785 

GIN 

790 

GIN 

795 

GIN 

800 

GIN 

805 

GIN 

810 

GIN 

815 

GIN 

820 

GIN 

825 

GIN 

830 

GIN 

835 

GIN 

840 

GIN 

845 

GIN 

850 

GIN 

855 

GIN 

860 

GIN 

865 

GIN 

870 

47 


SUBROUTINE  REDUCE (HI ,  H2 (ANGLE, PHI t ITER)  ROD  100 

C«*******e»**«<* ****»•«*••*•*****♦** t •** *•«**«••*»»**• »*****•«*• *«***»*»RDU  )Q5 

C  ZMAX  is  the  highest  level  in  the  atmospheric  profile  stored  in  RDU  110 

C  COMMON  /MODEL/.  IF  HI  AND/QR  H2  ARE  GREATER  THAN  ZMAX,  THIS  RDU  IIS 

C  SUBROUTINE  REDUCES  THEM  TO  ZMAX  AND  RESETS  ANGLE  ANO/OR  PHI  RDU  120 

C  AS  NECESSARY.  THIS  REDUCTION  IS  NECESSARY , FOR  EXAMPLE  FOR  RDU  125 

C  SATELLITE  ALTITUDES,  BECAUSE  (1)  THE  DENSITY  PROFILES  ARE  ROU  130 

C  POORLY  DEFINED  ABOVE  ZMAX  AND  (2)  THE  CALCULATION  TIME  FOR  RDU  135 

C  PATHS  ABOVE  ZMAX  CAN  BE  EXCESSIVE  (  EG.  FOR  GEOSYNCHRONOUS  RDU  140 

C  ALTITUDES)  RDU  145 

COMMON  /IFIL/  !RO,IPR,!PU,NPR  RDU  155 

COMMON  /PARMTR/  RE, DELTAS, ZMAX, IMAX , IMOD, I8MAX, IPATH  RDU  160 

COMMON  /CNSTNS/  PI ,CA,0EG,GCA1R, BtGNUM, 8IGEXP  RDU  165 

IF(H1 . LE.ZMAX  .AND.  H2.LE.ZMAX)  RETURN  ROU  170 

CALL  FINDSH(H1,SH, GAMMA)  RDU  175 

CPATH  «  ANDEX(H1 ,SH,GAMMA)*(RE+H1 )*SIN(ANGLE/DEG)  RDU  180 

CALL  FINDSH(ZMAX,SH, GAMMA)  RDU  165 

CZMAX  >  ANDEXfZMAX, SH, GAMMA) *<RE+ZMAX)  RDU  190 

ANGMAX  «  1 80 . O-ASIN (CPATH/CZMAX) *OEG  RDU  195 

IF(H1. LE.ZMAX)  GO  TO  130  RDU  200 

HI  »  ZMAX  RDU  205 

ANGLE  •  ANGMAX  RDU  210 

120  CONTINUE  RDU  215 

IF(H2. LE.ZMAX)  GO  TO  130  RDU  220 

H2  «  ZMAX  RDU  225 

PHI  *  ANGMAX  RDU  230 

130  CONTINUE  RDU  235 

NRITE(IPR,20)  ZMAX, ANGMAX  RDU  240 

20  FORMAT (///,'  FROM  SUBROUTINE  REDUCE:  ',/,  ROU  245 

1  4X, 'ONE  OR  BOTH  OF  HI  AND  H2  ARE  ABOVE  THE  TOP  OF  THE  *,  RDU  250 

2  'ATMOSPHERIC  PROFILE  ZMAX  *  \F10.3,'  ANO  HAVE  BEEN  RESET  RDU  255 

3  'TO  ZMAX' ,/,4X, 'ANGLE  AND/OR  PHI  HAVE  ALSO  BEEN  RESET  TO  RDU  260 

4  'THE  ZENITH  ANGLE  AT  ZMAX  *  • , FtO.3, •  DEG')  ROU  265 

200  CONTINUE  ROU  270 

RETURN  RDU  275 

END  RDU  260 


SUBROUTINE  FD3ETA(H1 ,  H2,  BETa /ANGLE .PHI.LEN.HMIN, I ERROR)  BET 

C******* **•»**«**  ******»«»***«**•********  *****************  *************  bet 

C  GIVEN  H1.H2.AND  BETA  (THE  EARTH  CENTERED  ANGIE)  THIS  SUBROUTINE  BET 

c  calculates  the  initial  zenith  angle  at  hi  through  an  iterative  bet 

C  PROCEDURE  BET 

C**»***-»« **»♦****•**«****«****»••» *♦♦*#*********»•***»»****»**♦**••*••*  BET 

COMMON  /IFIl/  IRD.IPR.IPU.NPR  BET 

COMMON  /PARMTR/  RE .DELTAS ,2MAX, IMAX, IMOO, IBMAX, IPATH  BET 

COMMON  /CNSTNS/  PI ,CA,DEG,GCAIR,BIGNUM,BIGEXP  BET 

DATA  TOLRNC/1 ,0£"4/ , ITERMX/1 0/  BET 

IFLAG  »  0  BET 

IF(Ht .GT.H2)  GO  TO  100  BET 

IORUER  »  1  BET 

HA  «  HI  BET 

HB  *  H2  BET 

GO  TO  120  BET 

100  CONTINUE  BET 

IORDER  *  -1  BET 

HA  ■  H2  BET 

Ha  =  HI  BET 

120  CONTINUE  BET 

C**««*SET  PARAMETER  TO  SUPRESS  CALCULATION  OF  AMOUNTS  BET 

1AMT  »  2  BET 

C»«*«*GUESS  AT  ANGLE,  INTEGRATE  TO  FIND  BETA,  TEST  FOR  BET 

C».«**CONVERGENCE,  AND  ITERATE  BET 

FIRST  CUES3  AT  ANGLE!  USE  THE  GEOMETRIC  $OLUTION(NO  REFRACTION)  BET 
ITER  •  1  BET 

FA  »  RE+HA  BET 

Ro  >  RE+H3  BET 

SG  »  SORT ( RA**2+RB**2“2 . 0*RA*RB* COS ( BETA/DEG) )  BET 

ANGLE1  «  ia0.0-AC0S((RA»*2+SG«*2-R8**2)/(2.0*RA*Sa))*DEO  BET 

HMIN  »  HA  BET 

I,;(ANGLE:.OT.SO.O)  HMIN  »  RA*SXN(ANGLE1/DEG)-RE  BET 

IF(HMIN.GE.O.O)  GO  to  310  BET 

IFLAG  »  1  BET 

HMIN  •  0.0  BET 

CALL  FNDHMNIHMIN, 90.0, HA, LEN, ITER. HMIN, ANGLE1.IERR0R)  BET 

310  CONTINUE  BET 

IF(NPR.NE, 1 ) WRITE (I  PR , 24)  BET 

24  FORMAT!///, '  CASE  20!  GIVEN  HI,  H2 ,  BETA!1,//,  3ET 

1  1  ITERATE  AROUNO  ANGLE  UNTIL  BETA  CONVERGES' ,//.  BET 

2  '  ITdR  ANGl  E  1  i  *2 1  ,  1  BET*'  1 ,  (30 , 1  OiJETA1  , T40 , 1  RANGE* ,  BET 

3  TS1  ,  'HMIN'  ,T61  ,'PHr  ,170,  'BENDING'  ,/,  BET 

4  T 10, '  (DEG) ' ,  T21 , '  (DEG) ' , T30, '  ( DEG) ' , T4I , 1  (Ml) * ,  BET 

5  T51 . ' ( KM) 1 , TOO , ‘ ( DEC)  ,T71 , 1 (DEG) ' ,/)  BET 

LEN  •  0  BET 

IF(ANCLE1.0T.90.0)  LEN  *  1  BET 

CALL  FNOHMN(HA, ANGLE1 ,HB, LEN , ITER, HMIN, PHI , I ERROR)  BET 

LEN  «  0  BET 

lF(HMIN.LT.HA)  LEN  •  I  BET 

CALL  RFPATH(HA, HB.ANOLEI, PHI ,LEN,HMIN,1AMT, BETA1, RANGE, BENDNO)  BET 
DOETA  »  BETA-BETA!  BET 

!F(NPR .Hi, 1 )WR! TE< IPR<  36) ITER i ANQLE1 ,BETA1 , DBETA, RANGE, HMIN, PHI ,  BET 

X  BENONO  BET 

26  FORMAT (1S|3F10,4,2F10.3,2F10,4)  BET 

IF( IFLAO. EQ. 1  .AND.  BETAI.LT, BETA)  GO  TO  BOOS  BET 

ITER  ■  2  BET 

OANG  •  ( BETA/25 . 0 ) *»2  BET 

IPlOANQ.LT. O.OOD  DANG  •  0.001  6ET 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

160 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

150 

355 

360 

365 

370 

375 

380 

3SS 

300 


40 


ANGLE2  *  ANGLEl -DANG 
IF(ANGLE2.LT.0.Q)  ANGLE2  *  0.0 
LEN  =  0 

IF (ANGLE2.GT.90 . 0)  LEN  =  1 

CALL  FN0HMn(HA,ANGLE2,HB, LEN, ITER, HMIN, PHI .IERR0R) 

LEN  =  0 

IF(HWIN.LT.HA)  LEN  .  1 

CALL  RFPATH(HA,HB, AN3LE2 , Phi , LEN,HMIN, IAMT , BET A2, RANGE, BENDNG) 
DBETA  *  BETA-BETA2 

IF(NPR.NE. I ) WRITE( IPR, 26) ITER, ANGLE2.BETA2, DBETA, RANGE,  HMIN, PHI, 
X  BENDNG 
ANGLE3  *  ANGLE2 
SETA3  =  BETA2 

IF(4BS(DBETA).LE.T0LRNC)  GO  TO  340 
320  CONTINUE 

ITER  *  ITER+1 

ANGLES  *  ANGLE2+ ( ANGLE2- ANGLEl ) » ( BETA-BETA2 )/( BETA2-BETA1 ) 

LEN  =  0 

I F ( ANGLE3.GT .90 . 0)  LEN  »  1 

CALL  FNDHMN{HA,ANGL£3,H8, LEN, ITER. HMIN, PHI , TERROR) 

LEN  *  0 

IF(HMIN.LT.HA)  LEN  *  t 

CALL  R FPATH{ HA, HB, ANGLES, PHI , LEN, HMIN, 1 AMT , BETAS .RANGE, BENDNG) 
DBETA  •  BETA-BETAS 

IF(NPR.NE. 1 ) WRITE! IPR, 26) I TER, ANGLE3,0ETA3, DBETA, RANGE, HMIN, PHI , 
X  BENONG 

IF(BETA3. LT.BETA.ANO.HMIN.lt. 0.0)  00  TO  9006 

ANGLE  1  ■  ANGLE2 

ANGLES  *  ANGLES 

BETA)  •  BETA2 

BETA2  ■  BETAS 

I F< ABS( BETA-BET A3) .IT . TQLRNC)  CO  TO  340 
IF( ITER.GT . ITERMX)  00  TO  9006 
GO  TO  320 
340  CONTINUE 

I'tHMIN.LT .0.0)  GO  TO  9005 
C«»«»»CONVERGEO  TO  A  SOLUTION 
ANGLE  «  ANGLE3 
BETA  ■  BETA3 

c*«»**ass;gn  ANGLE  ANO  PHI  TO  PROPER  HI  AND  H2 
IF { IOROER. EQ. t )  00  TO  350 
TEMP  ■  PHI 
PHI  «  ANGLE 
ANGLE  ■  TEMP 
350  CONTINUE 
RETURN 

C.»»««ERROR  MESSAGES 

BOOS  CONTINUE 

IF{NPR.NE.1)W»ITE(IPR,45) 

48  FORMAT ( ' QFDOLTA.  CASE  20(MI .HS , BETA) i  REFRACTED  TANGENT  *, 

1  HEIGHT  IS  LESS  THAN  EERO-RATH  INTERSECTS  THE  EARTH1, 

3  // . 10X . ‘BETA  IS  TOO  LARGE  FOR  THIS  HI  AND  H2‘) 

GO  TO  9900 
0006  CONTINUE 

1F(NPR  ,NE, I )9R| TE( IPR i 46)H! ,H9, BET  A , I  TER , ANGLE  I , BETA  1 ,  ANGLES, 
t  BETA}, ANGLE3, BETAS 

46  FORMATCOFOOETA,  CASE  SO  {HI , M2 , (ETA)  t  SOLUTION  010  NOT  ■, 

1  1  CONVERGE1. //,10X, 'Ml  •  1 , F 1 2 . G , 1  Mj  .  '.FI3.0, 

a  1  beta.  ’.ria-B,1  iterations  •  m4,//, 

3  I0X. 'LAST  THREE  ITERATIONS 

4  t ’ OX , 1  ANGLE  «  1 . F'5.9. 1  BETA  •  '.F15.0)) 

0000  l ERROR  *  I 

RETURN 

END 


BET 

395 

BET 

400 

BET 

405 

BET 

410 

BET 

415 

BET 

420 

BET 

425 

BET 

430 

BET 

435 

BET 

440 

BET 

445 

BET 

450 

BET 

455 

BET 

460 

BET 

465 

BET 

470 

BET 

475 

BET 

480 

BET 

4B5 

BET 

490 

BET 

495 

BET 

soo 

BET 

505 

BET 

510 

BET 

515 

BET 

520 

BET 

525 

BET 

630 

BET 

935 

BET 

540 

BET 

545 

BET 

550 

BET 

555 

BET 

560 

BET 

565 

BET 

570 

BET 

575 

BET 

500 

BET 

565 

BET 

69C 

BET 

595 

BET 

600 

BET 

605 

BET 

BIO 

BET 

615 

BET 

620 

BET 

675 

BET 

630 

BET 

635 

ORT 

840 

BET 

B45 

BET 

680 

BET 

655 

BET 

6S0 

BET 

BBS 

BET 

870 

BET 

B75 

BET 

BBO 

BET 

BBS 

BET 

690 

BET 

695 

BET 

TOO 

BET 

70S 

BET 

710 

BET 

715 

BET 

730 

SUBROUTINE  EXPINT(X,X1 ,X2,A) 

C  EXPONENTIAL  INTERPOLATION 

IF(Xi.EQ.0.0  .OR.  X3.EO.O.O)  00  TO  100 

X  •  X1«(X2/X1)*«A 

RETURN 

100  X  •  X1+(x2-X1)*A 
RETURN 
ENO 


XIN  100 
X1N  10S 
XIN  110 
XIN  115 
XIN  120 
XIN  125 
XIN  130 
XIN  135 


SUBROUTINE  FNDHMn( HI , ANGLE ,H2 , LENi ITER.HMIN.PHI , I ERROR) 

C444..4.4444...444...4.4...4444..4.4...44.444.4444. 444*4444. ••*•••«. 

C  THIS  SUBROUTINE  CALCULATES  THE  MINIMUM  ALTITUDE  HMIN  ALONG 
C  THE  REFRACTED  PATH  AND  THE  FINAL  ZENITH  ANGLE  PHI. 

C  THE  PARAMETER  LEN  INDICATES  WHETHER  THE  PATH  GOES  THROUGH 

C  A  TANGENT  height  (LEN*1 )  OR  NOT  (LEN.O).  IF  ANGLE  >  90  AND 

C  Hi  >  H2,  THEN  LEN  CAN  EITHER  BE  1  OR  0.  ANO  THE  CHOICE  IS  © 
C  LEFT  TO  THE  USER. 

C  THE  (INDEX  OF  REFRACTION  "  1.0)  IS  MODELED  AS  AN  EXPONENTIAL 

C  BETWEEN  THE  LAVER  BOUNDARIES,  WI fH  A  SCALE  HEIGHT  SH  ANO  AN 

C  AMOUNT  AT  THE  GROUND  GAMMA. 

C  CPATH  IS  THE  REFRACTIVE  CONSTANT  FOR  THIS  PATH  ANO 
C  EQUALS  !N0EX(H1)MRE+H1)4S1N(ANGLE). 

. . . . .  . . . . . 

COMMON  /IF1L/  IR0.IPR.1PU.NPR 

COMMON  /PARUTR/  RE .DELTAS , ZMAX , 1MAX, IMOO , I8MAX, IPATH 
COMMON  /CNSTNS/  PI ,CA. OEG.GCAIR , BIGNUM. BIGEXP 
COMMON  /CNTRL/  KMAX ,M, 1 KUAX.NL .ML , IKLO , ISSGEO 
DATA  0M/1.0/, ETA/5. OE-8/ 

C4....ETA  may  be  TOO  SMALL  FOR  SOME  COMPUTERS.  TRY  1.06-7  FOR  32  BIT 
C..4..MORO  UACMINES 

C  CRFRCT  IS  REFRACTIVE  CONSTANT  FOR  THE  PATH 

C 

CRFBCT(H)  .  (RE4H)4AN0EX(H,SH,0AUMA) 

N  .  0 

CALL  FIN0SM(H1.SH. GAMMA) 

CPATH  .  CRFRCT (Ml )*SIN( AN3LE/DEQ) 

call  finosmihs.sh. gamma) 

CM2  .  QRFRCT (M2) 

iF(ABS(CPA1H/CH2).G?.1-Q)  CO  TO  290 
IF(ANGLE.OI.SW.O)  $0  TO  109 
LEN  .  0 

HMIN  *  Ml  / 

co  to  mo 

100  CONTINUE 

IF1-11.LE.H3)  LEN  «  1 
'.»( LEN. 60.1)  GO  TO  !«0 
LEN  •  0 

HMIN  4  MS 

'in  t?i  sw 
no  continue 

C444..LQN0  PATH  THROUGH  a  TANGENT  HEIGHT, 

C»*444Sf)LVE  ITSfiATlvELY  FOR  Th£  tanoent  HEIGHT  HT. 

C»44.*HT  IS  Tm£  HSIGHt  "Qft  WHICH  I NOEXt HT )  •  ( RE .HT )  •  CPATH, 

Call  Unosnig.o.sh.oamau) 

CHIN  .  CRFNCT(O.O) 

c*4444»oh  beta  e*sss  (iter>oi.  auqw  for  ht  <  o.o 
tF( tlfiR.EQ.O  .ANO,  CPAtH.Lt.CWiN)  CO  TO  ISO 
HT i  .  tKE»Hi)4$lNtAN0lt/060)“*E 
CALL  FtNDSH(HT1,SH, GAMBIA) 

CT1  »  CRFRCKHtl  ) 

HTj  4  HT  1  -ON 

CALL  FIKOVMHTJ.SH, GAMMA) 

CT3  •  CRFRCT (HT3 I 
C*44»»HERAte  TO  F)HO  Ht 
N  »  2 

120  CONTINUE 
N  .  N.l 

HTJ  •  HT24(HT2-HT1)4(CPATH-CT2)/(CT2“CTI ) 


hmn 

100 

‘•HMN 

10S 

hvk 

110 

hm% 

115 

HUH 

120 

HMN 

125 

hmn 

130 

HMN 

135 

HMN 

140 

HAM 

145 

HMN 

iSO 

HMN 

155 

HMN 

160 

•HMN 

165 

HAM 

170 

HMN 

ITS 

UUU 

rwi 

1B0 

HUN 

IBS 

HUN 

190 

HMN 

IBS 

HMN 

200 

HMN 

205 

HMN 

2)0 

HMN 

315 

HUN 

220 

HMN 

229 

HMN 

230 

HAM 

235 

HMN 

340 

HMN 

245 

HMN 

250 

355 

MMN 

360 

HMN 

385 

MMN 

270 

HMN 

275 

HMN 

280 

MMN 

285 

HUN 

390 

HUN 

395 

MUN 

300 

.«L<.  . 

JOS 

uUu 

310 

ukaki 

T*^4l 

3>5 

HMN 

330 

Ul|v< 

»™Fl 

335 

330 

h*n 

335 

MMN 

340 

MMN 

349 

hmn 

390 

Hto 

359 

hmn 

380 

HMN 

369 

HMN 

370 

HUN 

375 

hMn 

380 

HMN 

385 

HMM 

389 

CALL  FINDSH(HT3,SH,GAKI«A) 

CT3  ■  CRFRCT(HT3) 

DC  ■  CPATH-CT3 

IF(A8S((CPATH-CT3)/CPATM).LT.ETA)  00  TO  130 
IF(N,QT.15)  GO  TO  310 
HT1  ■  HI2 
CTt  •  CT2 
HT2  •  HT3 
CT2  ■  CT3 
GO  TO  120 
130  CONTINUE 
HT  •  HT3 
HMJN  .  HT 
GO  TO  160 
150  CONTINUE 

!F( ISSGEO.EQ.O)  GO  TO  155 
1ERR0R.-5. 

RETURN 

155  CONTINUE 

C«m**TAMGENT  PATH  intersects  earth 

H2  •  0.0 
HRIN  •  0.0 
LEN  •  0 
CH2  *  CHIN 

JF( 1SSGE0.NE.1 (WRITE! IPR.22)  HI > ANGLE 

33  FORMAT!///, •  TANGENT  PATH  WITH  HI  •  '.F1Q.3,*  ANO  ANGLE  • 

1  Fto.3, *  INTERSECTS  THE  EARTH* .//. 10*. *H3  HAS  BEEN  RESET  *. 

2  ‘TO  0.0  ANO  LEN  TO  O') 

160  CONTINUE 

^♦•••CALCULATE  THE  2ENITH  ANGLE  PHI  AT  H3 
PHI  »  ASJN(CPATH/CH2)*0£0 

If (ANGLE. LE. 90.0  .OR.  LEN.EQ.1)  PHI  «  ISO. O-PMl 
RETURN 

C »«*»»HJ  LT  TANGENT  HEIGHT  FOR  THIS  HI  ANO  ANGLE 
300  CONTINUE 

WRI ; t lIPR.JO) 

20  FORMAT ( ‘ QM2  IS  LESS  THAN  THE  TANGENT  HEIGHT  FOR  THIS  RATH 
1  ‘AND  CANNOT  BE  REACHES' ) 

IERROR  •  3 
RETURN 
310  CONTINUE 

OC  «  CPATH-CT3 

WRITEUPH.3C)  N.CPATM.CI3.0C.HT3 

34  FORMAT!///, 'CFRCM  SUBROUTINE  fNflHRN  :*,//, 

1  10*. 'THE  PimCEEQURS  TO  FIND  THE  TANGENT  HEIGHT  0)0  HOT  *, 

3  'CONvm  AFTER  *.  13,'  ITERATIONS’.,*/. 

3  lOA.'CPATH  »  \F«3,S.’  «**.//. 10*. >ct>  •  * .F13.S. *  AH’ , 

4  //.tOR.’OC  •  ' .£12.3. 1  A**.//. 

9  It!*, ’NTS  •  \FI3.S.'  AM* ) 

5  TOR  30 

BN$ 


HMN 

395 

mn 

400 

A  *  AAA* 

nmn 

405 

HMN 

410 

■  ■««»■ 

fwn 

415 

HMN 

430 

HMN 

435 

HMN 

430 

HMN 

435 

HMN 

440 

HMN 

445 

HMN 

450 

HMN 

455 

HMN 

460 

HMN 

465 

HMN 

470 

HMN 

475 

HMN 

480 

HMN 

485 

HMN 

490 

HMN 

495 

HMN 

500 

HMN 

505 

HMN 

510 

HMN 

513 

HMN 

530 

HMN 

52S 

HMN 

530 

LlAJAl 

535 

HMN 

540 

HMN 

545 

HMN 

530 

HMN 

555 

HMN 

360 

HMN 

565 

HMN 

570 

HMN 

575 

HMN 

see 

HMN 

595 

HMN 

390 

HMN 

595 

Lititl 

Wfri 

600 

MIN 

605 

HMN 

610 

HMN 

615 

HMN 

630 

HMN 

633 

HMN 

630 

HMN 

635 

HMN 

640 

HMM 

645 

SUBROUTINE  FINDSH(H,SH, GAMMA)  SH 

C»****0IVEN  AN  ALTITUDE  H,  THIS  SUBROUTINE  FINOS  THE  LAYER  BOUNDARIES  SH 
C*****ZM(I1)  AND  ZM(I2)  WHICH  CONTAIN  H,  THEN  CALCULATES  THE  SCALE  SH 
C*»***HEIGHT  (SH)  AND  THE  VALUE  AT  THE  GROUND  (GAMMA+1)  FOR  THE  SH 

C*»*»*IHDEX  OF  REFRACTION  SH 

COMMON  /PARMTR/  RE, DELTAS .ZMAX.IMAX, I MOD. IBMAX.IPATH  SH 

COMMON  /CNSTNS/  PI ,CA , DEG.GCAIR, BIGNUM.BIGEXP  SH 

COMMON  /MODEL/  Z ( 34 ) , P'34) ,T (34) ,RFN0X(34) ,OENSTY( 16,34)  SH 

DO  100  1M-2.1M0D  SH 

12  *  IM  SH 

IF(Z(IM).GE.H)  GO  TO  110  SH 

100  CONTINUE  SH 

12  *  IMOD  SH 

110  CONTINUE  SH 

II  *  12-1  SH 

CALL  5CALHT(Z(I1),Z(I2), RFNDX(I1 ) ,RFNDX( 12) ,SH, GAMMA)  SH 

RETURN  SH 

END  SH 


100 

10S 

410 

IIS 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

IBS 


SUBROUTINE  SCALHT ( Z1 , Z2 , RFNDX1 , RFNDX2.SH , GAMMA )  SCL 

C*  **************  ******♦*********»*******  +  ********•******♦*••*******■*****  SC  L 
C  THIS  SUBROUTINE  CALCULATES  THE  SCALE  HEIGHT  SH  OF  THE  (INDEX  OF  SCL 

C  REFRACTION-1.0)  FROM  THE  VALUES  OF  THE  INDEX  AT  THE  ALTITUDES  Z1  SCL 

C  AND  Z2  (  Z1  <  22 ) .  IT  ALSO  CALCULATES  THE  EXTRAPOLATED  VALUE  SCI 

C  GAMMA  OF  THE  (INDEX-1.0)  AT  Z  •  0.0  SCL 

c***»***»  ***************  *********^ ,»»*****•*»**•***•**»*•»•♦•**»*•**••• *»scl 

RF1  «  RFN0X1+1 .0E-20  SCL 

RF2  =  RFNDX2+1 .OE-20  SCL 

RATIO  «  RF1/RF2  SCL 

IF( ABS(RAT 10-1 .0) . LT, 1 . 0E-05)  GO  TO  100  SCL 

SH  *  (Z2-Z1 )/ALOG( RATIO)  SCL 

GAMMA  *  RF1*(RF2/RF1)*«(-Z1/(Z2-Z1)>  SCL 

GO  TO  110  SCL 

100  CONTINUE  SCL 

C*****THE  VARIATION  IN  THE  INDEX  OF  REFRACTION  WITH  HEIGHT  IS  SCL 

c**«*«insignificant  or  zero 

SH  *  0.0 
GAMMA  «  RFNDX1 
110  CONTINUE 
RETURN 
END 


SCL 

SCL 

SCL 

SCL 

SCL 

SCL 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

ISO 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 


C' 

c 

c 

C 

C' 


FUNCTION  ANOtX(H,SH, GAMMA) 


COMPUTES  THE  IN0EX  OF  REFRACTION  AT  HEIGHT  H,  SH  IS  THE 
SCALE  HEIGHT,  GAMMA  IS  THE  VALUE  AT  H*0  OF  THE  REFRACTIVITY 
INOEX-1 


I F ( SH , EQ . 0 . 0 )  GO  TO  10 
ANDEX  •  1.0FGAM.MA«EXP(-H/SH) 
RETURN 

10  ANDEX  .  1,0+OAMMA 
RETURN 
END 


NDX 

>NDX 

NDX 

NDX 

NOX 

'NDX 

NDX 

NDX 

NDX 

NDX 

NDX 
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FUNCTION  RAQREF(H,SH, GAMMA) 

. . . 

C  COMPUTES  THE  RADIUS  OF  CURVATURE  OF  THE  REFRACTED  RAY  FOR 
C  HORIZONTAL  PATH;  RAOREF  *  ANDEX/  0(AN0EX)/D(RA0IUS) 

C*****COMMON  /CNSTNS/  P! ,CA ■ DEO ,OCAIR , BlCNUM, BIGEXP 
IF(SH.EO.O.O)  GO  TO  20 
RADREF  ■  SH*( 1 > 0+EXP(H/SH) /GAMMA) 

RETURN 

20  RADNEF  «  BIGNUM 
RETURN 

end 
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SUBROUTINE  RFPATH(H1 ,H2 , ANGLE , PHI , LEN. HMIN, I AMT, BETA , RANGE , BENDNG) PTH 

100 

c 

THIS  SUBROUTINE  TRACES  THE  REFRACTED  RAY  FROM  HI  WITH  A 

PTH 

110 

c 

INITIAL  ZENITH  ANGLE  ANGLE  TO  H2  WHERE  THE  ZENITH  ANGLE  IS  PHI, 

PTH 

115 

c 

AND  CALCULATES  THE  ABSORBER  AMOUNTS  (IF  IAMT.E5.1)  ALONG 

PTH 

120 

c 

THE  PATH.  IT  STARTS  FROM  THE  LOWEST  POINT  ALONG  THE  PATH 

PTH 

125 

c 

(THE  TANGENT  HEIGHT  HMIN  IF  LEN  «  1  OR  HA  »  MIN(H1 ,H2)  IF  LEN  ■ 

0)PTH 

130 

c 

AND  PROCEEDS  TO  THE  HIGHEST  POINT.  BETA  ANO  RANGE  ARE  I HE 

PTH 

135 

c 

EARTH  CENTERED  ANGLE  AND  THE  TOTAL  DISTANCE  RESPECTIVELY 

PTH 

140 

c 

FOR  THE  REFRACTED  PATH  FROM  HI  TO  H2 

PTH 

145 

COMMON  /IFIL/  IRO, IPR, IPU.NPR 

PTH 

155 

COMMON  /PARMTR/  RE .DELTAS , ZMAX, INAX , IMOD, IBMAX, IPATH 

PTH 

160 

COMMON  /CNSTNS/  PI , CA , DEG.GCAIR , BIGNUM, BIGEXP 

PTH 

165 

COMMON  /RFSPTH/  ZP(35) , PP ( 35) , TP(35 ) ,RFNDXP( 3S) ,SP(3S) , 

PTH 

170 

t  PPSUM(35) ,TPSUM(3S) ,RHOPSM(35) ,DENP( 16,35) ,AMTP( 16,35) 

PTH 

175 

COMMON  /SOLS/  AH1 (Bfl) »ARH(68) , 

PTH 

180 

X  WPATHS(C8. 16)  ,PA(68)  ,PR(68)  ,  ATHETA(35)  ,ADBETA(35) ,  Lvl(69) ,  JTURN.PTH 

185 

X  ANGSUN 

PTH 

100 

common  /cntrl/  KMAX.M, ikmax.nl, ML. iklo.issgeo 

PTH 

195 

DIMENSION  HLOW(2) 

PTH 

200 

C*  CHARATER*2  HLOW 

PTH 

205 

DATA  HLOW/2HH1 ,2HH2/ 

PTH 

210 

IF(H1 .GT.H2)  GO  TO  90 

PTH 

215 

IORDER  ■  1 

PTH 

220 

HA  »  HI 

PTH 

225 

HB  »  H2 

PTH 

230 

ANGLEA  •  ANGLE 

PTH 

235 

GO  TO  95 

PTH 

240 

90  CONTINUE 

PTH 

245 

IOROER  »  -1 

PTH 

250 

HA  ■  H2 

PTH 

255 

HB  ■  HI 

PTH 

280 

ANGLEA  .  PHI 

PTH 

265 

95  CONTINUE 

PTH 

270 

UNEXT  •  t 

PTH 

275 

I p ( I AMT , EQ . 1  .ANO.  NPR.NE.I)  WRIT£( IPR. 20) 

PTH 

280 

20  FORMAT ('ICALCULATION  OF  THE  REFRACTEO  PATH  THROUGH  THE 

PTH 

285 

1  ‘ATMOSPHERE1 ,///, 

PTH 

290 

4  T3,  ‘  t  *  ,T1 1  t>  ALTITUDE  1  ,T27,  'THETA'  ,T3<J.  ‘ORANGE'  ,T44, 'RANGE' . 

PTH 

295 

5  T53. 'OBeTA' ,T83, ‘BETA1 ,T72, ‘PHI ' ,T80, 'OBENO' , T87 , *  BENDING1 , 

PTH 

300 

6  T  98 , *  POAR' .7106, ' T0AR ' , Tt 1 3, ' RMOBAR' , 

PTH 

305 

7  TOT. ‘FROM1 , TIB,' T0‘ ./.T07, • (KM) ‘ ,117. • (KM) ' ,T27,'(0EG) ' , 

PTH 

310 

8  T30, ' ( KM) ' , T45 , ' (KM) ' , T53, ' (DEG) ' , 763 , ' (DEC! ' , T7T , ' (OEG) 1 , 

9  TBO, ' ( DEG) 1 , TB9 i ' (OEG) ' , 1096 , 1 (MB) ' , T 1 06, 1 (K) ' , 

1  Till,  MOM  CM-3)'./) 

PTH 

315 

PTH 

32C 

PTH 

325 

IPiLEN.EO.O)  GO  TO  100 

r-M 

330 

Cm»o»LONG  PATH!  mi  IN  TMt.  SYM6THIC  PART  PROM  TMt  TAKGfNT  KIIGMT 

PT»! 

335 

C»»««*T0  HA 

PTH 

340 

CALL  F1LL(MMIN,HA,  JN6XT ) 

PTH 

345 

UNA  *  .'NEXT 

PTM 

380 

100  CONTINUE 

PTM 

335 

C«*»«PtU  IN  the  REMAIHiNQ  PATH  FROM  HA  TO  MS 

PTH 

360 

IFtHA.E0.M8)  GO  TO  110 

PTH 

368 

CALL  FUL(HA.HD.UMeXT) 

PTH 

370 

110  CONTINUE 

PTH 

375 

UMAX  •  UN6XT 

PTM 

3*0 

IPAtM  *  iMAX 

PTM 

315 

C»**.«JNT6CaATE  EACH  SEGMEH*  Of  THE  PATH 

PTM 

390 

54 


5*** ••CALCULATE  cpath  seperately  for  LEN  »  0,1 
IF(LEN.EQ. 1 )  GO  TO  T 1 5 
CALL  FI MUSH (HA, 3H, GAMMA ) 

CPATH  ■  (RE+HA)‘AND£X(HA.SH,GAMMA)*SIN(ANGLEA/DEG) 

GO  TO  116 

115  CONTINUE 

CALL  FINOSH(HMIN,SH, GAMMA) 

CPATH  *  (RE+HMIN)*ANDEX(HMIN,SH, GAMMA) 

116  CONTINUE 
BETA  =  0.0 
S  =  0.0 
BENONG  =0.0 
IF(LEN.EQ.O)  GO  TO  140 

C»»**»D0  SYMETRIC  PART,  FROM  TANGENT  HEIGHT(HM.IN)  TO  HA 
IHLOW  =  1 

IF(IOROER.EQ.-I)  IHLOW  •  2 

IF( IAMT.EQ. 1  .AND.  NPR.Nc.1)  WRITES  I  PR ,24)  HLOW(IHLOW) 

24  FORMAT ( '  ’ ,T7, 'TANGENT' ,T17,A2,/,T7, ‘HEIGHT1 ./) 

SINAI  •  1.0 
COSAI  •  0.0 
THETA  •  90.0 
J2  =  UHA-1 
00  120  >J  =  1  ,02 

CALL  SCALHT (2P(U),ZP(U+1) , RFNDXPJU ) , RFNOXP( J+1 ) ,SH, GAMMA) 

CALL  LAYERS J, SINAI .COSAI , CPATH, SH, GAMMA, IAMT , OS.DBENO) 

OSENC  •  DBEND*DEG 
PHI  ■  ASIN( SINAI )*OEG 
OBETA  «  THETA-PHI+DBEND 
PHI  •  180.0-PH! 

S  •  S+DS 

BENONG  «  BENONG+DBEND 
BETA  =  BETA+DBETA 
IF(IAMT.NE.I)  GO  TO  H8 
P8AR  «  PPSUM(J)/RHOPSM(0) 

TBAR  •  TPSUM(U)/RHOPSM(J) 

RHOBAR  =  RHOPSMSOJ/OS 

IF(IAMT.E0.1  .ANO.  NPR.NE.l)  WRITES IPR, 22)  U.ZP(U) ,ZP(J+1) ■ 

1  THETA. OS, S.OaETA, BETA. PHI ,OBEN0, BENONG. PBAR, TBAR, RHOBAR 
22  FORMATS'  ' ,I2,2F9.3,9F9.3,F8.2.1PS9.a) 

118  CONTINUE 

IF(ISSGEO.EQ.I)  GO  TO  119 
ATHETA(J). THETA 
AOBSTASd)»ObETA 

119  CONTINUE 

THE  I A  •  1BO.0-PH! 

120  CONI  INUE 

C*****DOUOLt  path  QUANT  I T IES  FOP  THE  OTHER  PART  OF  THE  SYHETR1C  PATH 
BENONG  »  2.0«BEN0NG 
SETA  «  2.0»BETA 
S  «  2 . 0=S 

{ F ( t AMT . EO . 1  .AND.  NPR.NE.1)  WRITE! IPR.23)  S , BETA , BINONQ 
26  FORMAT S'O'.T tO,' OOUBLfi  RANGE.  6ETA,  BENDING'./, 

1  TIO.'fOR  SYMMETRIC  PART  OF  PATH* , Y40 , FG.3, T56, P9.3, 

2  T05.F9.3,/) 

JNEXT  •  JMA 

OC  TO  180 
140  CONTINUE 
C<*«»»SHOP”  path 
JMEXT  >  1 
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PTH 

610 

PTM 

615 

PTH 

020 

PTH 

629 
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C***«*ANGLEA  is  the  zenith  ansle  at  ha  IN  DEO 
C****«SINAI  is  sin  of  the  incidence  angle 

C**«**CQSAI  IS  CARRIED  SEPERATELY  TO  AVOID  A  PRECISION  PROBLEM 
C*««»*WH£N  SINAI  IS  CLOSE  TO  1.0 
THETA  ■  ANGLEA 

IF( ANGLEA.GT .45*0)  GO  TO  145 
SINAI  •  S1N(ANGLEA/DEG) 

COS A I  «  -C0S( ANGLEA/DEG) 

GO  TO  150 
145  CONTINUE 

SINAI  •  COS( (90.0-ANQLEA)/DEG) 

COS A l  «  -SIN( (90.0-ANGL£A)/D£G) 

160  CONTINUE 

C*****0C  PATH  FROM  HA  TO  HB 
IF(HA.EO.HB)  GO  TO  170 
«J1  «  UNEXT 
U2  «  JMAX-1 
IHLOW  •  1 

IF(lORDER.EO.-t)  IHLOW  »  2 
IHIGH  .  MOD< IHLOW, 2)+1 

IF( I  AMT . EQ . 1  .AND.  NPR.NE.1)  WRITE( IPR.28)  HLOW(IHLOW), 

1  HLOW(IHIGH) 

20  FORMAT ( 1  * ,T1 1 , A2 , 1  TO  1 ,A2,/) 

DO  160  d-J1,J2 

CALL  SCALHT(ZP( J) ,ZP( J+1 ) . RFNDXPfU ) .RFNDXP( J+1 ) , SH, GAMMA) 
CALL  LAVER ( d , SINA I , COSA I , CPATH ,SH. GAMMA, I AMT ,DS, OBENO) 

OBEND  •  DBENC**DEG 
PHI  •  AS!N(SZNA! )*DEG 
DBETA  *  THETA-PHI+DBEND 
PHI  »  180.0-PHI 
S  >  S+DS 

BENDNG  «  BENDNG+DBEND 
BETA  .  8ETA+0BETA 
IF(  tAMT.NE.  1 )  GO  TO  1  58 
PBAR  ■  PP$UM(d)/RHOPSM(d) 

TBAR  «  TPSUM(d)/RHOPSM(d) 

RHQBAR  •  RHOPSM(d)/DS 

IFttAMT.EQ.I  .ANO.  NPR.NE.1)  WR!TE( IPR ,22)  d,ZP(d) ,ZP(d+1 ) , 
1  THET A . DS , S , OB  ETA , BET A , PH I , OBEND , BENDNG, PBAR , TBAR , RHOBAR 

15B  CONTINUE 

IF( 1SSGE0. EO. 1 )  GO  TO  159 
AOBETA(d). DBETA 
ATHETAUMHETA 

159  CONTINUE 

THETA  «  180.0-PHI 

160  CONTINUE 
170  CONTINUE 

IF( ISSGEO.EO.O)  ATHCTA(dMAX).YH«TA 

1F( I0R0ER.EQ.-1)  PHI  •  ANGLEA 

RANGE  .  S 

RETURN 

END 
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SUBROUTINE  FILL(HA,HB, JNEXT) 

C*»«******« *•»»♦♦*♦»** *»»**««••«»♦*****»************ *♦*»**»»*****•*♦* 
C  THIS  SUBROUTINE  DEFINES  THE  ATMOSPHERIC  BOUNDARIES  OF  THE  PATH 
C  FROM  HA  TO  HB  AND  INTERPOLATES  (EXTRAPOLATES)  THE  DENSITIES  TO 
C  THESE  BOUNDARIES  ASSUMING  THE  DENSITIES  VARY  EXPONENTIALLY 

C  WITH  HEIGHT 

£****•*************************  *******•*•**+*#•***♦*******• ********** 

COMMON  / I F I L/  IRDtIPR,IPU,NPR 

COMMON  /MODEL/  Z(34) , P(34) ,T ( 34) , RFNDX(34 ) ,DENSTY( 16,34) 

COMMON  /PARMTR/  RE, DELTAS, ZMAX, IMAX, IMOD, I BMAX, IPATH 
COMMON  /CNSTNS/  PI ,CA,DEG,GCAIR,BIGNUM,BIGEXP 
COMMON  /CNTRL/  KMAX.M. IKMAX.NL.ML, IKLO, ISSGEO 
COMMON  /RFRPTH/  ZP(35) , PP(35) , TP(35) ,RFNDXP(35) , SP(35) , 

1  PPSUM(35) ,TPSUM(35) ,RH0PSM(36) ,DENP(16,35) ,AMTP(1B,35) 
IF(HA.LT.HB)  GO  TO  90 
WRITE( IPR, 22)  HA, HB, JNEXT 

22  FORMAT ( 1 OSUBROUTINE  FILL-  ERROR,  HA  ,GE.  HB*,//, 

1  10X,‘HA,  HB,  JNEXT  *  ' ,2E25. 15, 16) 

STOP 

90  CONTINUE 

C««***FIND  Z(IA)S  THE  SMALLEST  ZUJ.GT.HA 
DO  100  I«1 ,IMAX 
IF(HA,GE ,Z ( I ) )  GO  TO  100 
IA  «  I 
GO  TO  110 
100  CONTINUE 
IA  *  IMAX+1 
IB  •  IA 
GO  TO  130 

C**««.FIND  Z( IB) 1  THE  SMALLEST  Z(I).GE.HB 
110  CONTINUE 

DO  t20  I«IA,IMAX 
IF(HO.GT.ZU))  CO  TO  120 
IB  *  I 
GO  TO  UO 
120  CONTINUE 
13  «  IMAX+-1 
130  CONTINUE 

INTERPOLATE  DENSITIES  TO  HA.  HB 
ZP(JNEXT)  .  HA 
12  *  IA 

IFU2.EQ.1)  12  ■  2 
IF(I2.GT.1MAX)  12  -  IMAX 
II  ■  12-1 

A  »  (HA-Z(I1))/(Z(12)-Z(I1)) 

CALL  EXPINT(PP(JNEXT),P(l1),P(ia).A) 

TP(JNEXT)  .  T(U)*(T(ta)-T(11))«A 

CALL  EXPINT(RFN0XP(UNEXT),RFNDX(H),RFNDX(I2).A) 

00  140  KrI .KMAX 

CALL  EXPINT (OENP(K. JNEXT), DENSTY(K, II ),OENSTY(K,ia), A) 

140  CONTINUE 

IF(IA.EQ.IO)  GO  TO  180 
C**«**FILL  IN  DENSITIES  BETWEEN  HA  AND  HB 

11  "  IA 

12  «  IB-1 

UO  150  i»n,ia 
JNEXT  .  JNEXU1 
ZP(JNEXT)  «  2(1) 

PP( JNEXT)  «  P(I) 
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TP(dNEXT)  «  T( I ) 

RFNDXP( JNEXT)  »  RFNDX(I) 

DO  150  K=1 ,KMAX 

0ENP(K, JNEXT)  »  DENSTY(K,I) 

150  CONTINUE 
160  CONTINUE 

INTERPOLATE  THE  DENSITIES  TO  HB 
UNEXT  «  UNEXT+1 
ZP(UNEXT)  ■  H8 
12  *  IB 

IF(12.EQ.1)  12  =  2 
IF( 12 .GT. I MAX)  12  *  1MAX 
II  »  12-1 

A  .  (HB-Z(I1))/(Z(I2)-2(I1)) 

CALL  EXPINT (PP(JNEXT) ,P( I1),P(I2) ,A) 

TP(JNEXT)  -  T(I1 )+(T(I2)-T(I1 ))*A 

CALL  EXPINT{RFNDXP(JN£XT) ,RFN0X(H ) ,RFN0X( 12) , A) 

DO  170  K*1 , KMAX 

CALL  EXPINT(DENP(K,UNEXT),DENSTY(K,I1).0ENSTY(K,I2),A) 
170  CONTINUE 
RETURN 


SUBROUTINE  LAYER (J. SINAI ,C0SA1 .CPATH.SH, GAMMA, I AMT ,S,BEND) 

0* ************************************************ *•*****•••*•***• 
THIS  SUBROUTINE  CALCULATES  THE  REFRACTED  PATH  FROM  Z1  TO  Z2 
WITH  THE  SIN  OF  THE  INITIAL  INCIDENCE  ANGLE  SINAI 


COMMON  /PARMTR/  RE.OELTAS , ZMAX, IMAX , IMOD, IBMAX, IPATH 
COMMON  /CNSTNS/  PI ,CA , DEG.GCAIR.BIGNUM, BIGEXP 
COMMON  /CNTRL/  KMAX,M, I KMAX, NL, ML. IKLO, ISSGEO 
COMMON  /RFRPTH/  ZP(35) . PP(35) , TP(35) , RFNDXP(3S) ,SP(35) , 

1  PPSUM( 35) ,TPSUM{35) ,RH0PSM(35) ,0ENP(16,35) ,AMTP(16t35) 
DIMENSION  HDEN(20 ) t0ENA(20) , DEN3{20) 

DATA  EPS1LN/1 .OE-5/ 

C«»«**INlTtALIZE  LOOP 
N  •  0 
Z1  •  ZP(d) 

22  *  ZP(U+1) 

HI  «  Z1 
R 1  •  RE+H1 

OHM IN  •  DELTAS«*2/(2.0*R1 ) 

SINA1 1  •  SINAI 
COS A I 1  ■  COS A I 

Y1  •  COS A 1 1 ••2/2 . 0+COSA 1 1 *«4/8 . O+COSA1 1 **6*3. 0/48. 0 

Y3  ■  0.0 

XI  •  -R1«C0SA11 

RAT  IQ  1  •  R1/RA0REF(H1 ,SH, GAMMA) 

DSDX1  ■  1 . 0/( 1 . O-RAT 101 *SINAI 1 **2) 

DBNDX1  «  DSDX1 *SINAI 1 *RATIQ1/Rt 
S  ■  0.0 
BEND  •  0.0 

I F( IAMT.EQ.2)  00  TO  I'O 

C*****|NITIALIZE  THE  VARIABLES  FOR  THE  CALCULATION  OF  THE 
C*««»*ABSORBER  AMOUNTS 
PA  *  PP(J) 

PB  •  PP(dFl) 

TA  *  TP(J) 

TB  ■  TP(U*1) 

RHOA  •  PA/(GCAIR*TA) 

RHOB  •  PB/(GCAIR*TB) 

OZ  •  2P(U*1)-2P(d) 

HP  •  -OZ/ALOQtPB/PA) 

IF(ABS(RMOO/RHOA-t.O).LT.EPSILN)  GO  TO  80 
HRHO  ■  -OZ/ALOGiRHOB/RHOA) 

GO  TO  99 
SO  HRHO  •  1.0E30 
05  CONTINUE 

CO  105  K.1 .KMAX 
OENA(K)  •  DENP(K.U) 

OENB(K)  •  DENP(K,J»1) 

IF(OENA(K) .€0.0.0  .OR.  OEN0( K) , EQ .  0. 0)  00  TQ  100 

IF(ABS( 1 .0-OENAtH)/DEN8(K)) . LE.EPSILN)  GO  TO  100 
C«««««uSE  EXPONENTIAL  INTERPOLATION 

MOEN(K)  •  -OZ/ALOO(OEN8(H)/OEMA(K)) 

GO  TO  1 0S 

C««»*USE  LINEAR  INTERPOLATION 
100  HDEN(K)  >  0.0 
105  CONTINUE 
110  CONTINUE 

C«*«**lOOP  THROUGH  PATH 
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C«*.**INTEGRATE  path  quantities  using  quadratic  integration  with 

C***»*UNEQUALLY  SPACED  POINTS 

115  CONTINUE 
N  *  N+1 

DH  *  -DELTAS*CO$AI1 

IF(OH. LT.DHMIN)  DH  «  OHMIN 

H3  *  H1+DH 

IF(H3.GT.Z2)  H3  -  Z2 

OH  «  H3-H1 

R3  -  RE+H3 

H2  *  H1+DH/2.0 

R2  «  RE+H2 

SINAI2  *  CPATH/(ANDEX(H2,SH, GAMMA )*R2) 

SINAI3  «  CPATH/(ANDEX(H3,SH,GAMMA)»R3) 

RATI02  •  R2/RADREF(H2.SH, GAMMA) 

RAT  103  *  R3/RA0REF(H3.SH, GAMMA) 

IF((1.0-SINAI2).GT.EPSILN)  GO  TO  116 
C**»**NEAR  A  TANGENT  HEIGHT.  COSAI  •  -SQRT(1-SINAI**2)  LOSES 
C***«*PRECISION.  USE  THE  FOLLOWING  ALGORITHM  TO  GET  COSAI. 

Y3  »  Y1+($INAI1*(1 .0-RATI01)/R1+4.0*SINAI2*(1.0-RATI02)/R2+ 
1  SINAI3*(1 .0-RATI03)/R3)»DH/6.0 
C0SAI3  -  -SQRT(2.0«Y3-Y3**2) 

X3  «  -R3*CQSAI3 
DX  •  X3-X1 
Wt  *  0.5*OX 
W2  •  0.0 
W3  «  0 . 5*DX 
GO  TO  118 

C***** 

116  CONTINUE 

COSAI 2  *  —SORT ( 1 .0”SINAI2**2) 

COSAI 3  »  -SQRT(1 .0-SlNAl3**2> 

X2  ■  -R2*C0SA12 
X3  »  -R3»C0SAI3 
C*****CALCULA1E  WEIGHTS 
031  ■  X3-X1 
032  *  X3-X2 
021  «  X2-X1 

?F(032.EQ.O.O  .OR.  021 .EQ. 0.0)  GO  TO  117 
W1  •  (2-032/021 )*D31/6.0 
W2  ■  D31 •» 3/(032* D21 *6 . 0) 

W3  ■  ( 2. 0-021/032) *031/6.0 
GO  TO  110 

117  CONTINUE 

W1  «  0.5*031 

wa  •  o.o 

W3  •  0.5*031 

c**««* 

116  CONTINUE 

030X2  -  1.0/(1.0-RATI02*SINAI2**3> 

DSDX3  •  1.0/(1.Q-RATI03*SINAJ3«*3) 

OONOX2  •  0S0X2*SINA13*RAT I02/R2 
D3MDX3  *  OSOX3*SINA13*RAT I03/R3 
C***** INTEGRATE 

OS  *  W1 *OSDX1+W2*OSDX2+W3*OSOX3 
S  •  $*DS 

08UND  •  W1*D0N0X1+W3*OeN0Xa+W3*06N0X3 
DENI)  ■  BONDTD8SNO 
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IF( t AMT. £0.2)  GO  TO  150 
C*«***CALCULATE  AMOUNTS 
OSDZ  =  DS/DH 
PB  =  PA*£XP(-OH/HP) 

RHOB  »  RHOA*EXP(-OH/HRHO) 

:f((dh/hrho).lt.epsiln)  go  to  120 

PPSUM(J)  =  PPSUM(d)+DSDZ*(HP/(1.0+HP/HRHO))*(PA*RHOA-PB*RHOB) 
TPSUM(J)  *  TPSUM( J)+DSOZ*HP*(PA-PB)/GCAIR 
RHOPSM(J)  >  RHQPSM(d)+DSDZ*HRHO*(RHOA-RHOB) 

GO  TO  12S 
120  CONTINUE 

PPSUM(J)  =  PPSUM< J)+0.5*DS*(PA«RHOA+PB*RHOB) 

TPSUM(J)  =  TPSUM( J)+0.5*0S*(PA+PB)/GCAIR 
RHOPSM(J)  «  RHOPSM(U) +0.5*03* ( RH0A+RHQ8). 

125  CONTINUE 

00  140  K*1 , KMAX 

Ir(ABS(HDEN(K)).EO.O.O)GO  TO  130 
IF( (DH/HDEN(K) J.LT.EPSILN)  GO  TO  130 
C***»* EXPONENTIAL  interpolation 

DEN8(K)  ^  DENP{K,d)*EXP(-(H3-Z1)/HDEN(K)) 

AMT?(K,d)  *  AMTP(K,d)+DSOZ*HDEN(K)*(OENA(K)-OENB(K)) 

GO  TO  140 
130  CONTINUE 

C*****LINEAR  INTERPOLATION 

OENB(K)  *  DENP(K,J)+(DENP(K,J+1)-0ENP(K,J))*(H3-Z1)/0Z 
AMTP(K,d)  *  AMTP( K, J)+0.5*(0ENA(K)+DENB( K) )*DS 
140  CONTINUE 
PA  *  PB 
RHOA  »  RHOB 
00  145  K*1 , KMAX 
145  OENA(K)  «  OENB(K) 

160-  CONTINUE 

IF(H3.GE.Z2)  GO  TO  160 
HI  *  H3 
R1  •  R3 

SINA1 1  •  SINAI3 
RAT  101  «  R..TI03 
Y1.Y3 

C0SAI1  «  C0SAI3 
XI  ■  X3 
DSDX1  •  0SDX3 
DSNDX1  •  0BN0X3 
GO  TO  116 
160  CONTINUE 

SINAI  •  SINAI3 
COSAI  »  C0SAI3 
SP(d)  *  s 
RETURN 
ENO 
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SUBROUTINE  TRANSUPH,  ISOURC,  IDAY  t ANGlEM) 

I*************************************************************** 

CALCULATES  TRANSMITTANCE  AND  RADIANCE  VALUES  BETWEEN  VI  AND  V2 
FOR  A  GIVEN  ATMOSPHERIC  SLANT  PATH 
K 
1 
2 

3 

4 
9 
6 
7 


WATER  VAPOR  BANDS 

UNIFORMILY  MIXED  GASSES  C02,N02,C0,CH4 
INFRARED  OZONE 
N2  CONTINUUM 

H20  SELF  BROADENED  CONTINUUM  AT  296 
MOLECULAR  (RAYLIEGH)  SCATTERING 
BOUNDRY  LAYER  AEROSOL  (0  TO  2  KM) 

(TX(7)  IS  TOTAL  AEROSOL  TRANSMITTANCE) 

8  ULTRAVIOLET  OZONE 

9  H20  SELF  CONTINUUM  296-260  (TX(9)  TOTAL  TRANS) 

10  H20  FORIGN  CONTINUUM 

( Tx( 1 0 )  IS  AEROSOL  ABSORPTION) 

11  HN03  (NITRIC  ACID) 

12  TROPOSPHERIC  AEROSOL  (2-10  KM) 

13  STRATOSPHERIC  AEROSOL  (10-30) 

14  UPPER  STRATOPHERIC  (ABOVE  30KM) 

16  AEROSOL  WEIGHTED  RELATIVE  HUMITY  (0  TO  2  KM) 

16  CIRRUS  CLOUDS 

COMMON  /IFIL/IRD,IPR,IPU,NPR 

COMMON  /CARD1 /  MODEL , I  TYPE, I EMSCT ,M1 ,M2,M3 , IM.NOPRNT , TBOUND, SALB 
COMMON  /CARD2/  IHAZE , ISEASN, IVULCN, ICSTL , ICIR, IVSA.VIS.WSS.WHH, 
t  RAINRT 

COMMON  /CARD3/  HI ,H2, ANGLE, RANGE, BETA, RE, LEN 
COMMON  /CARD4/  V1.V2.DV 

COMMON  /CNSTNS/  PI ,CA,OEG.GCAIR,BlGNUM,BIGEXP 
COMMON  /CNTRL/  KMAX.M, IKMAX.NL.ML. IKLO, 1SSGE0 
COMMON  RELHUM(34) ,HST0R(34) , ICH(4) ,VH( 16) ,TX( 1 6) ,W(16) 

COMMON  WPATH(68,16),TBBY(68) 

COMMON  ABSC(4,40) ,EXTC(4,40) ,VX2(40) 

COMMON  /AER/  XXI , XX2 , XX3 , XX4 , YY1 , YY2, YY3, YY4 
COMMON  /SOLS/  AH1 (66) i ARH(6fl ) , 

X  NPATHS(68,16'),PA(G8),PR(68),ATHETA(35).AD8ETA(3B).U(69).UTURN 
X  ANGSUN 

COMMON  /SRAD/  TEB1 ,TEB2 , TASP1 ,TASP2, TMSP1 .TMSP2.TEB2SV 
COMMON  /1CLL/  ICALL. FPHS.FALB, FORBIT 
DIMENSION  ABB  (TO 

DATA  CF 1  /3 . 1 B9E-20/ , C  F2/2 . 75E-04/ 

RADMIN.1.0E+30 

RAOMAXaO. 

TWOPI »PI*2 . 

EMISS-1.-SALB 

VRMIN.O. 

VRMAX«0. 

SUMA*C. 

SUMS  *-99. 

SUMSSR— 99. 

RFLS  —99. 

RFLSOl— 99. 

RAQSUM«0. 

STSOL  »  0,0 
SSOL  »  0.0 
FACIOR.O.S 
tV1«V1/B. 
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IV1 * IV1 «5 
IV2.IV2*5 

IF  (IV1.LT.350)  IV1 »350 

IF  (IV2.GT.50000)  IV2*50000 

IF  (DV.LT. 5)  0V*5 

IOV.DV 

IV.IV1-IOV 

IKLO-1 

ICOUNT  »0 

1CALL  •  0 

IEMISS  •  0 

ISCTTR  »  0 

IF{ IEMSCT. EQ.1  .OR.  IEMSCT. EQ. 2)  IEMISS  «  1 
IF( IEMSCT. EQ.2)  ISCTTR  •  1 
TRAlN.t . 

IF(RAINRT.NE.O)  train*tnrain(rainRT) 

TCRRIS  »  EXP(-WPATH(IKMAX,16)*2.) 

WRITE( IPU,234)  TRAIN, TCRRIS 
234  FORMAT (2FS. 4) 

IF  (IEMISS. EO.O)  IKMAX'IKLO 
C»**«»BEGINING  OF  FREQUENCY  LOOP 
C 

S  IV*IV+IDV 
ITZERO-O 
IPATH.t 
SUMV.O. 

TLOLO«1 . 

TSOLO.1. 

IF  (ICOUNT.EO.O)  GO  TO  15 
IF  ( I COUNT .EQ.50)  GO  TO  15 
GO  TO  20 
15  X COUNT *0 

I F( IEMSCT . EQ.O)  WRITE( IPR.900) 

I F ( IEMSCT. EQ.1 )  WRITE! IPR.910) 

IF( IEMSCT. EQ. 2)  WRITE! IPR.920) 

1F( IEMSCT. EQ. 3)  WRITE( IPR.930) 

20  00  25  K.1.KMAX 
TX(K)«0.0 

IF  (K.LT.4)  TX(K)«1.0 
25  CONTINUE 

ICOUNT.lCOUNT.t 
SUM. 0.0 
V«iv 

C«»«.«  WATER  BAND  ABSORPTION 
CALL  C10TA  (ABB(D.V) 

C*»*«»  UNIFORMLY  MIXED  GASES 
CALI  C20TA  ( ABB ( 2 ) , V ) 

OZONE 

CALL  C3DTA  (ABBO).V) 

N2  CONTINUUM 

c 

CALL  C40TA(ABB(4),V> 

C 

C****«  WATER  CONTINUUM 

CALL  SLF2B6( V • SM2OT0 ) 

CALL  SLF280(V,SH2OTI) 

CALL  FRN294(V,FH20) 

To.aw. 
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T1«260. 

c*****frotect  against  exponential  underflow  at  high  freouencv 

IF(V/(T1*0.6952) .GT.BIGEXP)  GO  TO  105 
XO*EXP(-V/ (TO*0 . 6952) ) 

RAOFNO«V»( 1 .-XO)/(1 .+XD) 

XO«EXP(-V/(T1*0.6952)) 

RAOFN1 »V*( 1 ,-XD)/(1 . +XD) 

FOG* (CF1*EXP(“CF2*V) ) 

GO  TO  108 
105  CONTINUE 
RAOFNO  *  V 
RADFN1  •  V 
FOG  *  0.0 
108  CONTINUE 

A8B(5)=SH2OTQ«RA0FN0 
CALL  C60TA(ABB(6) ,V) 

A88(7)=0. 

CALL  C80TA(ABB(8) ,V) 

ABB(9)-(SH20T1*RADFN1 )-(SH2OT0*RAOFN0) 

ABB( 1O)*(FH2O+FOG)*RAOFN0 
C*«**»HN03  ABSORPTION  CALCULATION 
CALL  HNQ3  { V,ABB{ 1 1 > ) 

CALL  AEREXT  (V) 

TEB1  *-99. 

TEB2SV— 99. 

C***M 

c«*»«*beg inning  of  layer  loop 

DO  210  !K*!KIQ» 1KMAX 
IF  (IEMISS.E0.0)  GO  TO  120 
IF(ISCTTR.EO.O)  GO  TO  110 

111  CONTINUE 

C****«LQA0  APPROPRIATE  ABSORBER  AMOUNTS  INTO  W(K) 

IF( I  PATH-2)  112,114.118 

112  CONTINUE 

C*««**LOAD  W(K)  WITH  WPATHSI 1 .K)  TO  OBTAIN  THE  FIRST 
C«***»SUN  PATH  TRANSMITTANCE 
DO  113  K»  1  ,  K’JAX 

113  W(K).WPATHS(1,K) 

I F( vrt  1  l.GE.O.O)  GO  TO  120 

TX(6)-0.0 

TX( 7) *0.0 

TX(9)*0.0 

TX( 101*0.0 

00  TO  206 

114  CONTINUE 

C*«***L0A0  W(K)  WITH  WPATH( IK ,K)*WPATHS( IK+1 ,K) 

C*****TO  OBTAIN  L  PATH  TRANSMITTANCES 
IKPI»IK+1 
00  116  K*1 , KMAX 

119  WOO*WPATH<  IK,K)*WPATMS(  IKP1  ,K) 

IF( WPATHSt IKP1 , 1 ) .QE ,0.0)  CO  TO  120 

rx(o)*o.o 

TX(7)-.0.0 
TX(9)«-0,0 
TX( 101*0.0 
GO  TO  SOB 
It#  CONTINUE 

C****« LOAO  WjK)  WITH  WPATH(IX.X)  TO  OBTAIN  THE  OPTICAL 
C»««*»PATH  TRANSMITTANCES 
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00  117  K.1.KMAX 
117  W(K)«WPATH(IK,K) 

120  CONTINUE 
SUM*0 . 

00  125  UK=4, 1 1 
X(JK)«ABB(JK)*W(JK) 

125  ;  IM*SUM+TX(JK) 

1„(5).TX(5)+TX(10)+TX(9) 

TX(1)«TRANFN(W(1),ABB(1).1) 

TX(2)*TRANFN(W( 2 ) , ABB( 2 ) » 1 ) 

TX(3)«TRANFN(W(3) ,ABB(3) ,2) 

TX(10)-YY1*W(7)+YY2*W(1 2)+YY3*W( 13)>YY4*W( 14) 
TX(7)=.XX1-W(7)+XX2-N(12)+XX3*W(13)+XX4-W(14) 

SUM*SUM+TX(7) 

TX(18)«W(16)-2. 

SUM*SUM+TX(16) 

TX(9)=SUM 
00  205  K*4,KMAX 

IF  (TX(K).GT.BIGEXP)  GO  TO  200 
TX(K)«EXP(-TX(K) ) 

GO  TO  205 

200  TX(K)«1 .O/BIGNUM 
205  CONTINUE 

TX(9)«TX(1 )-TX(2)-TX(3)»TX(9)-TRAlN 
IF(ISCTTR.EO.O)  GO  TO  209 
206  CALL  SSRAO( IPH,IK,ITZERO, IPATH , V.SUMSSR) 

IF(!PATH.EQ.3)  GO  TO  208 

1PATH.IPATH+1 

GO  TO  111 

208  IPATH.2 

209  IF  (IV. GE. 13000)  TX(3)«TX<8) 

ALAMul . 0E+04/V 

IF  (1EMSCT.EQ.0  .OR.  1EMSCT.EQ.3)  GO  TO  220 
B8IK.BBFN(TB0Y(IK),V) 

TLNEWMTX|9)*TX(10))/(TX17)«TX{6)) 

TSNEW«(TX(7)-TX(8))/TX(10) 

OTAU*TLOLD-TLNEW 

IF  (DTAU.LT.1.0E-8.AND.TLNEW.LT.1.0E-5)  GO  TO  220 
IFlDTAU.LE.O.)  OTAU-O. 

SUMV«  SUMV+0 . 5-BOIK-OTAU* ( TSOLO-TSNEN) 

TLOLD-TLNEW 
TSOLD-TSNEW 
210  CONTINUE 
220  CONTINUE. 

C— — END  OF  LAYER  LOOP 

IF  (IV.GT.IV1)  FACTOR-1.0 
IF  (IV.GE.SV2)  FACTOR-0.9 
SUMA.SU«A+FACTOS*OV-(1 .0-TX(9>) 

GO  TO  ( 300 >400 ,400 i 600)  (I5JASCT-1) 

300  CONTINUE 

C-M--TRANS1.il  IT AI.'CE  ONLY 
YX( (0)-( ,-TX( 10) 

NRITEUPR.908)  V ,  ALAU .  TXj  B) ,  (  TX(K)  •H-1l7),YX(1t),TX(  1 0) , SUM* 
WRITE ( IPU, 907)  y.ALAAI.TX<»),(TX(H).K*1.T).YX(11).TX(10j,SUMA 
GO  TO  700 
400  CONTINUE 

C— —ATMOSPHERIC  RAOUNCE  ONLY 

ft— —INCLUDE  EMISSION  OF  BOUNDARY  ATTENUATED  BY  TOTAL  TRANSMISSION 
IP(  TBOUJIO.  lE.O.O)  GO  to  408 
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TRA  1130 
TRA  1135 
TRA  1140 
TRA  1145 
TRA  1150 
TRA  1155 
TRA  1160 
TRA  1165 
TRA  1170 
TRA  1178 
TRA  11  BO 
TRA  1185 
TRA  1190 
TRA  1193 
TRA  1200 
TRA  1205 
TRA  1210 
TRA  1215 
TRA  1220 
TRA  1223 
TRA  1230 
TRA  1233 
TRA  1240 
TRA  1243 
TRA  1230 
TRA  1233 
TRA  1280 
TRA  1263 
TRA  1270 
TRA  1278 
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VI 

I 

I 

*.* 
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BBQ* BBFN ( TBOUND , V ) «TX ( 9) «EMISS 
SUUV  «  SUMV  +  BBQ 
405  SUMVV.SUMV 

sum v « ( t . oe+04/ v» • a ) *  sumv 
IF ( IEMSCT . EQ.2 )  GO  TO  500 
RADSUM.RADSUM+DV • FACTOR* SUMV 
WRITE(IPR,91C|  V, ALAM.SUMV .SUMVV .RAOSUM, TX(9) 

WRITE!  1PU.917)  V,  ALAM.SUMV, SbMW,RA0SUM,lX(3) 

SUHT>SUMV 
SUMT T. SUMVV 
00  TO  700 
500  CONTINUE 

C***«*SOLAR  SCATTERED  RADIANCE 

C««***MULT1PLY  SUMSSR  BY  THE  EXTRATERRESTRIAL  SOURCE  STRENGTH  SS 
CALL  SOURCE ( V , ISOUHC , *  DAY , ANQLEM , S3 ) 

SUMSSR. SUKSSR»SS 

c...». SUMSSR  IS  THE  SCATTERED  RADIANCE  IN  (V/CM3-STER-MICR0METER) 

SUMS" { t . 0E4/V**2 ) *SUMS SR 

C««***RFLSOL  IS  GROUND-REFLECTED  DIRECT  SOURCE  RADIANCE 
RFLSOL*0. 

RFLS»0. 

JF(H2.GT.O.)  GO  TO  510 
IF(TEB1.L£.0.)  GO  TO  510 

I F ( ANGSUN . GE  * 0 • )  RFLFAC«SALB»COS(ANGSUN*CA)/TMOPI 
rflsol.rflfac»tebi *ss 
fiFLS  •  1  .QEVV*»2*RFLS0L 
510  CONTINUE 

SUMT  »  SUMV+SUMS+R  F  LS 
SULiTT.  SUMV  WSUMSSR^RFL  SOL 
RA0SUM*RAUSUM*DV» FACTOR* SUMT 

WD I T  E ( I  PR. 926)  V. ALAM.SUMV, SUMV V , SUMS , SUMSSR . RFLS , RFLSQL, 

X  .SUMT,SUMTT,RADSUM.TX(9) 

WRITE!  1RU, 327 )  V, ALAM.SUMV, SUMVV. SUMS, SUMSSR, RFLS, RFLSOL, 

X  SUMT.SUMTT,RA05UN.TXJ»),TE6t,TE8a$V 
GO  TO  700 
500  CONTINUE 

C***»»0‘RECTLY  TRANSMITTED  SOLAR  IRPA01ANCE 
C*»«*«SOLIL  IS  SOLAR  IRRAOI ANCE  IN  WAITS/ {CM2  MICROMETER) 

CALL  SOUHCEIV.O.IOAY.e.O.SOUL) 

SOL  tv  *  S0Ul.*1.0E*A/V**2 
TSOLSV  •  SGHV.TXtB) 

TSOLIL  •  S0LIL*TX{9) 

STSOL  «  STSQLATSOUV*OV*FACTO» 

550 L  •  SSOL*SOUV.OV»F ACTOR 

M6tTe(IPR.93e)  V.ALAM.  TSOLIV, TSOLIL. SOLlV,SOLlL,STSOL.SML.TX{*) 
MRI TCI  IPG, 937)  V, ALAM, TSOLIV, TSOLtL, SOLI V, SOLI L, ST JOL,tlOL,TX(t I 
SUMT  .  TSOLIV 
RAOS’JM  •  STSOL 

c»«*»-» 

TOO  CONTINUE 

IKltMSCT.EO.O)  GO  TO  T10 
5F( SUMT . t!E . RADM»X !  VRMAX  •  V 
IFtSUMT.CE.RAOMAX)  RADWAX*  SUMT 
IF{SUMT,L*.RAft»lN)  VRMIN.V 
IF(SUMT.U,RAOMIN)  RAOMtN«SUMT 
710  CONTINUE 

if  trv.ir.iv3)  00  to  s 

C**»*«*iNO  OF  FREQUENCY  LOOP 

»Ff iciR.ME.o)  umiiH.noi  no*) 


TRA  12B0 

tra  iaas 

TRA  1290 
TRA  1295 
TRA  1300 
TRA  1305 
TRA  1310 
TRA  1315 
TRA  1320 
TRA  1325 
TRA  1330 
TRA  1335 
TRA  1340 
TRA  1345 
TRA  1350 
TRA  1355 
TRA  1360 
TRA  1365 
TRA  1370 
TRA  1375 
TRA  1380 
TRA  1385 
TRA  1390 
TRA  1395 
TRA  1400 
TRA  1405 
TRA  1410 
TRA  1415 
TRA  1420 
TRA  1425 
TRA  1430 
TRA  14J5 
TRA  1440 
TRA  1445 
TRA  1450 
TRA  1455 
TRA  1460 
TRA  1455 
"TRA  1470 
TRA  1479 
TRA  1480 
TRA  1485 
TRA  1480 
TRA  1*99 
TRA  1500 
TRA  1509 
TRA  ISIQ 
TRA  1515 
TRA  1520 
TRA  1525 
TRA  1530 
TRA  1535 
TRA  15*0 
TRA  1545 
TRA  1550 
TRA  1559 
TRA  15*0 
TRA  1581 
TRA  1570 
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IF( NAINRT.GT.O.O)  WRITE! IPR, 730)  TRAIN 
A6> 1 • O-SUMA/FIOAT (IV-1V1 ) 

WRITE! IPR, 740)  IV1 .IV.SUMA.AB 
1F( IEMSCT.EQ.O)  GO  TO  770 

WRITE(IPR,7S0)  RADSUM » RAOMIN , VRMIN . RAOWAX , VRMAX 
XF( IEMSCT.EQ.3)  GO  TO  770 
WRITE! IPR, 700)  TBOUNO.EMISS 
770  CONTINUE 
RETURN 

£)*•••• 

c***««format  statements  for  spectral  oata 
c*»«»page  headers 


TRA 

tra 

tra 

TRA 

TRA 

TRA 

TRA 

TRA 

TRA 

TRA 

TRA 

TRA 


800  FORMAT  (1H1,/  1X.32H  FREQ  WAVELENGTH  TOTAL  H20,SX,4»IC02*,5X,TRA 

1  'OZONE  N2  CONT  H20  CONT  MOL  SCAT  AEROSOL  KN03  *,  TRA 

4' AEROSOL  INTEGRATED1  TRA 

2  /2X.14H  CM-1  MICRONS, 9(4X,5HTRANS),4X,17H  ASS  TRA 

3A8S0RPT1CN,/)  IRA 

9tO  FORMAT  (1H1 , 20X . SBHRAOI ANCE(WATTS/CM2-STER-XXX) ,  TRA 

X/,'0  FREO1 ,T10, 'WAVLEN' ,T19, 'ATMOS  RAOlANCE* +  T39.  TRA 

X  INTEGRAL'  ,T049,  'TOTAL1  ,/2X,  -  tCM-1 )’  ,T10,  '  (MICRN) '. T19, • (CM-1 )' .TRA 
X  T29, ' (MICRN)' ,T39, 1 (CM-1 ) ' ,T49, ‘TRANS' ,/)  TRA 

920  FORMAT  (1H1 ,45X.28HRADIANC£(WATT$/CM2-STER-XXX) ,  TRA 

X/,‘0  FREQ'  ,T  1 1 , 1  WAVLEN :  , Til ,  ’ATMOS  RADIANCE ‘ . T41 ,  TRA 

X  ‘RATH  SCATTERED' .761 , ‘GROUND  REFLECTED' .735, ' TOTAL' ,T98,  TRA 

X  >  INTEGRAL '.T t to. ‘ TOTAL*. /2X,’(CM-»)\ TtO, ‘(MICRN) ‘ , T20, • tC*-t ) '.TRA 
X  T30. ‘(MICRN)' ,f40, '(CM-) )' ,T50, ' (MICRN) ‘ , TSO. '(CM-I)! , TTO.  TRA 

X* (MICRN) ' ,T80, ' (CM-1 ) ' ,T90. * (MICRN) ' ,TlOO, '  (C«-I ) ' , T 1 1ft, ' TRANS' ,/) TRA 


830  FORMAT  ('I'.aaX.'  !  RRADUNCE  (WATTS/CM2-XXXX)  ‘  ,/ 
t  '0  FREQ'  T1S,*WAVLEN\T23, ‘TRANSMUTED  '.T45, 

2  ‘SOLAS'  ,T(si.‘ INTEGRATED'  ,T8C.  'TOTAL' ./, 

3  2X, ' (CM-1 ) ‘ , T10, ' (MICRN) ' , T20, ' (CM-1 ) ' ,T30, • (MJCBN) ' , 

4  T40.  '  | CM-1 )  ‘  ,  190 .  '  (MICRN) '  ,  T60.  'TRAMS.  *  ,T70,  ‘SOLAR* . 

5  T80. -TRANS') 

C««M»5PECTRAL  DATA  TO  UNIMIPR  |»S) 

906  FORMAT  (IX.,  F7,0,?8.3,tDF9,4*Fl2,3) 

916  FORMAT  (I.XifT.O.Fu-3.1  P3E10. 2  .OP  9.4) 

326  FORMAT (tX.FT.O.FO.S. 1 P9E IQ .2 .0PF9.4) 

936  FORMAT ( 1X.F7.0.F9 .3,1*6510.2.0379.4) 

C»...*5BECT«AL  DATA  “)  UftITctfttf  (.7) 

SOT  FORMAT (FT.O.Fft.X.  li)F9:4,Ft2.4) 

91  r  FORMAT  (FT,  0,F6, 2 .  lP3t<9 .2.54X  ,§9, 3.0PF0.4) 

S27  FOSMATf  F7 . 0 .  f# ,  J .  1 0889. 2 . 0P3F* .  4) 

937  FQ«MAT(F7.o.F#,3. i»aC0.3.3T*,0PP6.4' 

C<m*«*«S0MM4RY  VALUES 

7J0  FORMAT!  'OTRANSMfSSION  »ME  Te  CIRRUS  •  '.FtO.I) 

730  FORUATCOtRANSatSSICN  60S  TO  «AlN  *  \F10.4j 
7*0  FORMAT! 'OINteGSATCO  ABSORPTION  MKM’.tft.  ’  tO'.IS.'  CM-1  • 
1*  CM-!'./.'  AVERAGE  TRANSMITTANCE  -  »  ‘  .  P8. 4./) 


TRA 
TRA 
TRA 
TRA 

TRA 

TRA 

TRA 

TRA 

TRA 

TRa 

tra 

TRA 

TRA 

tra 

TRA 

'RA 

TR* 

TRA 

»»* 

. F10.2,  TSA 
IRA 


769  rQ4MAT( 'G(NTE0SATEO  RAOJANCE  *  '.IPCiCSU  WAITS  CM- 3  STI‘B-1',/,  TRA 
X  I  MtNINMM  BAOIAKLE  *  ‘.E10.3,’  MATT'S  CM-  2  $Tf#*»l  (Oft  )-|  •.  t«A 
X  ‘*T  *.  CPF  10,1.'  CM-1'./.  TRA 

X  •  MAXIASW  radiance  *  ’ ,  1FE10.3, *  MAMS  CW-3  STtfe«1  (CM-t)-l  '.TSA 
X  'AT  ' »CAF 10. 1 . '  CM**'i  ■  TRA 

7*0  FfiSMAtf  SayNDART  '■sMOERATtf**  •  '.FIS »*.*  **,/,  TRA 

X  '  83UN3AST  tNJSSiVlTV  .  *,»1«.3)  TRA 

END  TRA 


1675 

1580 

1685 

1590 

1695 

1600 

1606 

1310 

1610 

1620 

1825 

1630 

1639 

1640 
1645 
1656 
1655 
1660 
1665 
1670 
1675 
1680 
1695 
1690 
1695 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
TT35 
1740 
1745 
1750 
175$ 
i78a 
178$ 
ItTQ 
MTS 

1780 

178$ 

<T®9 

1785 

1900 

1955 

1810 

161$ 

TOJO 

<035 

1030 

103$ 

1045 

l«4S 

uso 
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FUNCTION  BBFNfT.V)  $FN  IOC 

C***« ******* **********  *********  *************************** ***,^*3,, 444 j  QK 
C  BLANK  BODY  FUNCTION  IN  UNITS  OF  WATTS/(CMS  STER  MICROMETER)  BFN  110 

C********f#i«»***********#************.*w***»****,t*«***<*4,*4^<**t<,*t,,,g|:^  ,  ,g 

COMMON  /CNSTNS/  PI.CA.OEG.GCAIR.BIQNUM.BIGEXP  BFN  120 

BBFN  *  0.0  BFN  125 

X  »  i.43879*V/T  BFN  130 

C*»»**PROTECT  AGAINST  EXPONENTIAL  OVERLOW  BFN  135 

IF(X.GT.BIOEXP)  return  bfn  140 

BBFN  «  1.190956E-16»V**5/(EXP(X)-1.0)  BFN  145 

RETURN  BFN  150 

END  BFN  155 


SUBROUTINE  C1DTA  (C1L.V)  CIO  100 

C  RETURNS  WATER  VAPOR  BAND  ABSORPTION  COEFFICIENT  AT  WAVENUMBER  V  CIO  105 
COMMON  /Cl /Cl (2580)  C1D  110 

C1L«-5.  CIO  115 

IF(V. LT .350 . )  RETURN  CIO  120 

IF(V.GT. 14520.)  RETURN  CIO  125 

IV»V  C1D  130 

La( IV-350) /5+1  CIO  135 

IF(IV.GT. 9195. ANO.IV.LT. 9875)  RETURN  CIO  140 

IF(IV.GE.9876)L«/IV-987E)/5+1771  CIO  145 

IF(IV.GT. 12795. ANO.IV.LT. 13400)  RETURN  C1D  150 

IF(IV.GE. 13400)  L« ( I V"1 3400) /S+2356  CIO  156 

CIL-CI(L)  CIO  ISO 

RETURN  CIO  165 

ENO  CIO  170 


SUBROUTINE  C20TA  (C2L >V)  C20  100 

C  **  UNIFORMLY  MIXED  GASSES  C2D  105 

COMMON/C2/  C2(1575)  C2D  110 

C2L=-5.  C2D  115 

IF( V. LT .500 . )  RETURN  C20  120 

IFfV.GE. 13190.)  RETURN  C20  125 

I V»V  C20  130 

L*(IV-500)/5+1  C20  135 

IF(IV.GT. 8070. AND. IV. LE. 12970)  RETURN  C2D  140 

IFOV.GE.  12950)  L«(IV“12950) /6+1 61 6  C2D  145 

C2L*C2(L)  C20  1B0 

RETURN  C20  155 

ENO  C20  160 


SUBROUTINE  C30TA  (C3L.V) 

C3D 

<00 

OZONE 

C30 

105 

COMMON  /C3/  C3(540) 

C30 

no 

C3L*-5. 

C30 

115 

IF(V. LT.575. )  RETURN 

C3D 

lao 

IF(V.GT,3270. )  RETURN 

C30 

135 

IV»V 

C30 

130 

L.(IV-575)/5+1 

C30 

135 

C3L»C3(L) 

C3D 

140 

RETURN 

C30 

145 

ENO 

C30 

150 

uuoo 


SUBROUTINE  C4DTA  (C4L.V) 

C  *«  N2  CONTINUUM 

COMMON  /C4C8/  C4( 1 33) ,C8( 1 02) 
C4L»0. 

IF(V.  .T.2080.)  RETURN 
IF( V.QT .2740. )  RETURN 
IV*V 

L«(IV-208O)/5+1 

C4L»C4(L) 

RETURN 

END 


C4D  100 
C-1D  105 
C4D  110 
C4D  115 
C40  120 

C4D  125 
C4D  130 
C40  135 

C4D  140 
C40  145 

C4D  ISO 


SUBROUTINE  C6DTA(C6L,V) 

C6D 

100 

MOLECULAR  SCATTER! NO 

C60 

105 

C6L.0. 

C6D 

110 

!F(V. LE.3000. )  RETURN 

C60 

115 

C6L*V»*4/(9.a6799E4l8~1-07l23E409»V«»a) 

C6D 

120 

RETURN 

C60 

125 

END 

C6D 

530 

subroutine  ceor*  (cet.v)  cao  100 

C  OZONE  U.V  ♦  VISIBLE  C80  105 

COMMON  /C4C8/  C4(133) ,C8<102)  C80  110 

C8L*0.  C80  115 

IF<V.LT. 13000.)  RETURN  C8D  120 

IF(V.OT.SOOOO. )  RETURN  CBD  125 

1V»V  C80  130 

IF< IV. G1 . 24200. AND. IV. LT. 27500)  RETURN  C80  135 

XI.(V-13000.0)/200,0+1 •  C80  140 

IFUV.QE. 27500)  XI*(V-27500.0)/600.a57.  C80  145 

N»XI*l,00l  CBD  150 

XD»XI-FLUA1  (N)  C80  1S5 

Cai.C8(N)*XD»{C8<N)-C8tN-1})  C80  100 

RETURN  C80  163 

END  COO  170 


FUNCTION  1RANFNHR.A88-1' )  TBF  100 

LONTRANS  EMPIRICAL  FUNCTION  FOR  BAND  MODE  k  TRANSMITTANCE  THF  105 

K  »  1  WATER  AND  UN  I  FORMAL?  MIXED  THF  HO 

K  •  2  INFRARED  OiCNE.  TRF  115 

COMMON  /TfiFWFO/  TR!8T).FW(6?),F0(6T)  Trf  125 

DIMENSION  C(2). 0(2), FC67, 2)  TRF  130 

EQUIVALENCE  (F(t,1),FW(1))  TRF  135 

DATA  C/0.007787,0. 089194/', D  /l. 655895.  2.307053/  TRF  140 

TRANFNkI,  TRF  145 

!F( w. LT . 1 . OE-20 .OR . At6. LE .*6. )  RETURN  TRF  ISO 

X.ALOQIO(W)«A85  TRF  155 

TRANFN»0.  THF  180 

I?{ A.  OT.  F(67.K)  )  RETURN  TRF  165 

IF(X.Lt.F(l,H!)  TRAnFN»  1.  -  C(K>»EXF{D(X)«X)  TRF  170 

IF(X.LT.F<1,K))  RETURN  TRF  175 

R'*3  TRF  100 

I F( X.Gt . F( 32 ,K) )  Ht«33  TR?  105 

DO  20  J1«K1  .#»  TRF  | <10 

U*U i  TRF  190 

IF(X  .LE.  F(J.X)  )  CO  TO  40  TRF  200 

20  CONTINUE  trf  205 

40  TRANFN-TRtJ)  ♦  {TR<J-1 )-Tfi(0)  )»(F( J,K)-X)/(F( J,X)-F(J-1 ,K) )  THF  210 

RETURN  TRF  215 

END  TRF  220 
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SUBROUTINE  SLF296<V1C.SH2OT0) 

C  LOADS  SELF  CONTINUUM  296K 

COMMON  /SH20/  VI ,V2,OV,NPT,S296(2001 ) 
CALL  SINT (VI , VIC ,DV ,NPT,S296,SM20T0) 
RETURN 
END 


SLF  100 
SLF  105 
SLF  110 
SLF  115 
SLF  120 
SLF  125 


SUBROUTINE  SLF260(V1C.SH2QT1) 

C  LOADS  SELF  CONTINUUM  260K 

COMMON  /S260/  Vi ,V2.DV,NPT,S260(2001 ) 
CALL  SINT(V1,V1C,DV,NPT,S260,SH2OT1) 
RETURN 
END 


F60  100 

F60  105 

F60  110 

F60  115 

F60  120 

FSO  125 


SUBROUTINE  FRN296(V1C.FH20) 

C  LOADS  FOREIGN  CONTINUUM  296K 

COMMON  /FH20/  VI , V2.DV , NPT , F296{2001 ) 
CALL  SINT (VI , VIC ,0V i NPT • F286, FH20) 
RETURN 
END 


FRN  100 
FRN  105 
FRN  110 
FRN  115 
FRN  120 
FRN  125 


SUBROUTINE  SINTtVI.VIC.OV.NBT.CONTI.CONTO) 
C 

C  INTERPOLATION  FOR  CONTINUUM  N1TM  LQWTRAN 

C 

DIMENSION  CONTI (2001) 

C0NTO-0, 

I»(V1C-V1)/DV«1. 00001 
IF(I .OE.NPTJOO  TO  10 
CONTO-CONTIU) 

INOO^AM'JOtVIC.IO.) 

|F( IMOO.GT .0)  CONTO»(CONTJ(I)4CONTl(I+1))/a. 
10  CONTINUE 

RETURN 
END 


INT  100 
INT  105 
INT  110 
INT  115 
INT  120 
INT  125 
INT  130 
INT  135 
INT  MO 
INT  MS 
INT  150 
INT  155 
INT  150 
INT  lit 
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subroutine  exabin  exa 

EXA 

loads  extinction  ano  absorption  COEFFICIENTS  for  the  four  exa 

aerosol  altitude  regions  exa 

EXA 

COMMON  /CARD1/  MODEL,ITYPE,IEMSCT.Nt,M2.M3,tM,NOPRNT,T80UND,SALB  EXA 

COMMON  /CARD2/  IHAZE , ISEASN, IVULCN. ICSTL, ICIR, IVSA.VIS.WSS.WHH,  EXA 

1  RAINRt  EXA 

COMMON  /CARD3/  HI ,H2, ANGLE. RANGE, BETA, RE, LEN  EXA 

COMMON  /CARD4/  V1.V2.DV  EXA 

EXA 

COMMON  RElKUM(34) ,HST0R(34), ICH(4) , VH( 1 6 ) ,TX(16) ,N(16)  EXA 

COMMON  WPATH(68,16),TBBY<88)  EXA 

COMMON  ABSC(4,40) ,EXTC(4,40) ,VXO(40J  EXA 

COMMON  /EXTU  /  VX2< 40) . RUREXT (40 ,4) ,RURABS(40 .4) .URBEXT ( 40,4) ,  EXA 
TURBABS(40,4) ,0CNEXT(40 ,4 ) , 0CNABS(40 , 4) ,TROEXT(40 ,4) ,TRQABS(40«4) ,  EXA 
2FO!EXT!40),FG1ABS(40) . FG2EXT(40) , FG2ABS! 40)  EXA 

3, BS TEXT (40) , B5TABS(40 ) , AVOEXT (40) , AVOABS(40) ,FV0EXT(40  EXA 

4) ,FVOABS(40) ,DMEEXT(40) ,0MEABS(40)  EXA 

DIMENSION  RHZQNE (4)  EXA 

DATA  RHZONE/0.,70.,80. .99./  EXA 

DO  S.  l«1 ,40  EXA 

5  VXO( 1 }«VX2( I )  EXA 

Hat  EXA 

IF  (1HAZE.EQ.7)  11.2  EXA 

IF( IHAZE.EQ.3)  II  •  3  EXA 

DO  85  M. 11,4  EXA 

ITA-ICH(M)  EXA 

ITC>ICH(M)-7  EXA 

WRH«W(1S)  EXA 

IF  ( 1CH(M) . EQ.6- ANO.M.NE . 1 )  WRH.70.  EXA 

THIS  CODING  DOES  HOT  ALLOW  TROP  RH  DEPENDENT  ABOVE  EH(T,I)  EXA 

DEFAULTS  TO  TROPOSPHERIC  AT  70.  PERCENT  EXA 

00  10  1*2,4  EXA 

IF  (WRH.LT.RHZONE(l))  GO  TO  IS  EXA 

10  CONTINUE  EXA 

1.4  EXA 

18  II.t-1  EXA 

IF(WRH.GT.O.O.ANO.VRH. LT,«9,)X.AL0G(ia0.0-WRM)  EXA 

XI.ALOGt 1O0,0-RHZ0NE( 11 ))  EXA 

X7.ALOGI 1 00 . 0-RHZ0NE( 1 ) )  EXA 

IF  (WRH.GE.99.0)  x.xa  exa 

IF  (WRH.LE.0.0)  X.Xt  EXA 

DO  00  N.1,40  EXA 

ABSC(M,N).0.  EXA 

EXTC(M,N).0.  EXA 

IF( I TA.0T.6)  00  TO  48  EXA 

IM  UA.lE.O)  GO  10  80  EXA 

C  RH  dependent  aerosols  exa 

GO  TO  (10. 20. 28. 28, 30. 38).  ITA  EXA 

20  Y*.ALOGtRUREXT(N, I))  EXA 

Yt.AtOG {RUREXT (N, II))  ESA 

Z2.AL00I RURA8S1N . I ) )  EXA 

ZI.AL0G(RURA8S(N .  ID)  EXA 

00  TO  40  EXA 

28  Y2«ALOQIOCNEXT(N. I))  EXA 

YUALOO(OCNEXT{N.  Ill)  EXA 

12»*LOO(OCNA8S(N , I ) )  EXA 

il.ALOOtOCNAtS(N.tt))  EXA 


100 
108 
110 
115 
120 
125 
130 
135 
140 
145 
•  150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
218 
220 
228 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
2B0 
2B5 
290 
298 
300 
305 
310 
318 
320 
323 
330 
yi8 
340 
3*3 
380 
355 
380 
388 
370 

379 

380 
388 
380 
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GO  TO  40 

30  Y2«A10G<URBEXT<N,I)) 
Y1«AL03(URBEXT(N , II)) 
22>AL00(URBABS(N,I)) 
Z1>AL00(URBABS(N,n)) 

GO  TO  40 

35  Y2*A10G(TR0£XT (N, I ) ) 
Y1»A10G(TR0EXT(N,II)) 
Z2-A10G(TR0A8S(N,I)) 
Z1*AL0G(TR0A8S(N,H)) 

40  Y*Y1-t-(Y2-Y1)*(X-X1)/(X2-Xl) 
ZX-Z1+(Z2-Zt )*(X-X1)/(X2-Xt) 
ABSC(M,N)«EXP(ZK) 

EXTC(M,N).EXP(Y) 

00  TO  80 

45  IF  ( 1 TA.GT. 14)  GO  TO  75 
IF  (ITC.LT.1)  GO  TO  80 
GO  TO  (50,55,60,65,70t65,70),  ITC 

50  ASSC(M,N)«FG1ABS(N) 
EXTC(M,N).FG1EXT(N) 

GO  TO  80 

5S  A8SC{N,N).FG2ABS(N) 
EXTC(H,N)«FG2EXT(N> 

GO  TO  80 

80  ASSC(M.N).BSTABS(N) 
EXTC{M,N).BSTEXT(N) 

GO  TO  80 

85  ABSC(M,N)>AVOABS(N) 
EXTCtM,N)«AVOEXT(N) 

GO  TO  80 

70  A8SC(U.N).FV0ABS(N) 
EXTC(M,N).FVOEXT(N) 

GO  TO  BO 

75  ABSC(M,N)>0KEA8S(N) 
EXTC(M,N)>OMEEXT(N) 

BO  CONTINUE 

85  CONTINUE 
RETURN 


EXA  395 
EXA  400 
EXA  405 
EXA  410 
EXA  415 
EXA  420 
EXA  425 
EXA  430 
EXA  435 
EXA  440 
EXA  <45 
EXA  450 
EXA  455 
EXA  460 
EXA  465 
EXA  470 
EXA  475 
EXA  480 
EXA  485 
EXA  490 
EXA  495 
EXA  500 
EXA  505 
EXA  510 
EXA  515 
EXA  520 
EXA  525 
EXA  530 
EXA  535 
EXA  540 
EXA  545 
EXA  550 
EXA  555 
EXA  560 
EXA  565 
EXA  570 
EXA  575 
EXA  580 


c 

c 

c 

c 


SUBROUTINE  AEREXT  (V) 

INTERPOLATES  AEROSOL  extinction  and  absorption  coefficient 
for  the  wavenumber,  V. 

COMMON  /CARD1/  MODEL, iTYPE.tEL'SCT.Mt, M2, M3, IM.NOPRNT.TBOUND, sals 
COMMON  /CARU2/  IHAZt, ISEASN, IVULCN, ICSTL , ICIR, IVSA.VIS.WSS.WHN. 

1  RAINRT 

COMMON  /CARD3/  HI ,H2, ANGLE . RANOE, BETA, RE, LEN 
COMMON  /CAR04/  V1.V2.OV 

COMMON  /CNTRL/  KMAX.M,  IK’iAX.NL.ML,  IKLO,  ISSUED 
COMMON  RELHUM(34) ,HSTQ3(34) , ICH{4) ,VH( 16) ,TX(16) ,W<16) 

COMMON  WP.i.TH(68,1fl>,TBBV(B3) 

COMMON  ABSC(4,40) ,EXTC(4,40) ,VX2(40) 

COMMON  /AER/  EXTV(4) , ABSV{4) 

00  S  1.1.4 
EXTV(n-0. 

ABSV(I)»0. 

5  CONTINUE 

IF  { IHAZE. EQ.O)  RETURN 
ALAM.1 .0E+4/V 
00  10  N*1 ,40 
XD»ALAM-VX2(N) 

IF  (XD)  IS, 10, 10 
10  CONTINUE 
N»40 

15  VXD»VX2(N)-VX2{N“1 ) 

00  20  1*1,4 

EXTV(I).(EXTC(I,N>-EXTC(I.N.-1))*X0/VXD+EXTC(l,N) 

ABSV  ( I ) .  ( ABSC  ( I ,  N)  -ABSC  ( I .  N-1 ) )  »X0/VXtHA6SC{  l ,  N) 

20  CONTINUE 
RETURN 
END 


AEX  100 
AEX  105 
AEX  110 
AEX  1J5 
AEX  120 
AEX  125 
AEX  130 
AEX  135 
AEX  140 
AEX  145 
AEX  150 
AEX  155 
AEX  160 
AEX  165 
AEX  170 
AEX  175 
AEX  180 
AEX  185 
AEX  ISO 
AEX  195 
AEX  200 
AEX  205 
AEX  210 
AEX  215 
AEX  220 
AEX  225 
AEX  230 
AEX  235 
AEX  240 
AEX  245 
AEX  250 
AEX  255 
AEX  250 


C 

C 

C 


SUBROUTINE  HN03  (V.HABS) 

MN03  STATISTICAL  BAND  PARAMETERS 

DIMENSION  HI ( IS) ,  H2( 15) ,  H3(13) 

ARRAY  HI  CONTAINS  HN03  ABS,  CQEF<CM-i MN-1  > 
DATA  Ml/a. 107, 3. *11 ,6,194,8. 150, 9. 217, 9. 461, 
10, 10. 48, 7. 609.8, 136, 4, 849,5.886/ 

ARRAY  M2  CONTAINS  MHO 3  ABS,  COEFICN-IATM-1 ) 
OATA  M2/2 ,828,4,51 1,6, 7SS.B, 759,10,61 ,13.74, 
10,21 .33, 10,82, 16.42, IT ,IT, 14. HO, 8. 716/ 

ARRAY  M3  CONTAINS  «N03  ABS,  C0EF(CM-IATtl-1 ) 
OATA  M3/5.Q63, 6.503,14.12, 19. 63, 53. 51, 23. 86, 
14,24.79, 1?. 56, 9. 430/ 

HABS»0. 

IF  (V. OS. 850.0. AND. V,LE. 020.0}  GO  TO  9 
IF  ( V.GE.t STS. 0. AND. V. LE. 1330.0)  CO  TO  10 
IF  tv. HE. 1875. O.ANO.V. L«. 1735.0)  CO  TO  18 
RETURN 

6  I»(V-848i >/6. 

MA8S«Mt(I) 

RETURN 

10  l«(V‘l3T0.)/6. 

HA9S*H2tt) 

RETURN 

15  I*(V-I670.)/S, 

M49S.M3U) 

RETURN 
END 


FROM  650  TO  920  CM 
11.36.11,10.11.17,12 

FROM  I2T8  701330  CM- 
16,00.21,31.23.09,31 

FROM  1676  T01738  CM- 

23.22.21 .09, 26. *6. 28 


HNS 
HNS 
HNS 
MNJ 
HNS 
1  MN3 
AWN  3 
MNJ 
1  NN3 
•  6HN3 
HNS 
I  HNJ 
.6MN3 
MNJ 
HNJ 
HNJ 
HNJ 
HNJ 
MNJ 
HNJ 
HNJ 
HNJ 
HNJ 
HNJ 
NN3 
HNJ 
HNJ 
HNJ 
HNJ 


too 

105 

110 

115 

130 

123 

ISO 

133 

140 

•  49 
ISO 
133 
160 
168 
170 

m 
180 
1 6S 
190 

tgs 

300 

303 

210 

213 

220 

23S 

230 

235 

240 
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c 

c 

c 

c 

* 

c 


c 

c 


c 


1 

a 

c 


4 
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THIS  ROUTINE  DRIVES  THE  LOWTRAN  GEOMETRY  ROUTINES  REPEATEDLY 
TO  OBTAIN  THE  ABSORBER  AMOUNTS  FROM  THE  SCATTERING  POINTS  ON 
THE  OPTICAL  PATH  TO  THE  EXTRATERRESTRIAL  SOURCE,  NECESSARY 
TO  DO  THE  LAYER  BY  LAYER  SINGLE  SCATTERING  RADIANCE  CALCULATION, 

COMMON  RELHUM(34),HST0R<34),ICH(4),VK(I6),TX(16),M(1«) 

COMMON  MPATH(68,16),TBBY(6B) 

COMMON  ABSC ( 4 , 40 ) , EXTC ( 4 , 40 ) , VX2(40 ) 

COMMON  /SOLS/  AH1(6B),ARH<68), 

X  WPATHS<68,16) ,PA(88) ,PR(68) ,ATHETA(38) , AOBETA(38) , U<69) . JTUR 
X  ANGSUN 

COMMON  /IF1L/  IRD.IPR.IPU.NPR 

COMMON  /CARD1 /  MODEL. ITYPE, IEMSCT ,M1 ,M2,M3, IM.NOPRNT , TBOUND.SALB 
COMMON  /CARDS/  IMAZE, 1SEASN, IVULCN. ICSTL, ICIR, IVSA.VIS.MSS.NHM, 

1  RAINRT 

COMMON  /CARDS/  HI ,H2, ANGLE, RANGE, BETA. REE, LEN 
COMMON  /CAR04/  V1.V2.0V 

COMMON  /CNTRL/  KMAX.MM, IXMAX.NL.ML, 1KL0, 1SSGE0 

COMMON  /MODEL/  ZM{34) , PM(34) , TM(34) , RFNDXt 34 ) ,DENSTY( 16,34) 

COMMON  /PARMTR/  RE, DELTAS, ZMAX,  1MAX  ,  IMOo.  1BMAX,  IPATH 

COMMON  /CNSTNS/  PI ,CA.0EG,GCAIR,BIGNUM,BIGEXP 

COMMON  /RFRPTM/  ZP(3D) , PP(35 ) ,TP(35) ,RFNDXP{ 38) ,SP(35) , 

1  PPSUM(3S),TPSUN(35).RHOPSM(3S),0ENP( 16,35) ,AMTP( 18,38) 

COMMON  /USRDTA/  NANGLS,ANGF(50) ,F(4,50) 

DIMENSION  NPDUMt 68,16), TB0UM(68) , LJD(68) , AZ( 3S) , RH0(35) 

MOLECULAR  AND  HENYEY-GREENSTE1N  PHASE  FUNCTIONS 
NOTE;  UNITS  ARE  (STER-1),  X.COSCSCATTERING  ANGLE) 

PFMOL  t  X ) » . 06085+ . 05708  +  X+ +2 

PFHG(GG,X)»(1.0-GG++2)/(4.+PI»(1.0+GG»+a-2.0+GG+X)++I,B) 

IKLO+1 
NPR  •  1 
ISSGE0.1 

SPECIFY  THE  GEOMETRICAL  CONFIGURATION 

IF( 1PARM.EQ.3)  GO  TO  1 

THETAOaPARMI 

PHI0+PARM2 

THEIAS+PARM3 

PHIS+PARM4 

GO  TO  2 

CONTINUE 

PSIO+PARMl 

DELO»PARMJ 

IF(IPARM.NE.O)  GO  TO  9 
IF(ABS(TMETA0).LT.B9.8)  GO  TO  8 
IF( THE  I AO, GT ,0,0)  GO  TO  4 

OBSERVER  IS  AT  OR  NEAR  THE  SOUTH  POLE,  REMAP  TO  EQUATOR 
NRl *EI I PR, 880) 

PSIP0+PSIPO-PHI8 

TMETAO.0,0 

PHIO'O.O 

THETAS+0,0 

PHtS>SO.*THCTPS 

GO  TO  9 

CONtINUE 

OBSERVER  IS  AT  OR  NEAR  THE  NORTH  POLE,  REMAP  TO  EQUATOR 
MAI Tt( l»A,»8l) 

PSIP0-PH1S-P4IP0 


G)SSG 

100 

SSG 

108 

SSG 

110 

SSG 

118 

SSG 

120 

SSG 

128 

SSG 

130 

SSG 

135 

SSG 

140 

SSG 

148 

SSG 

150 

IN,  SSG 

155 

SSG 

160 

SSG 

165 

1  SSG 

170 

SSG 

175 

SSG 

180 

SSG 

185 

SSG 

190 

SSG 

•195 

SSG 

200 

SSG 

205 

SSG 

210 

SSG 

215 

SSG 

220 

SSG 

22S 

SSG 

230 

SSG 

235 

SSG 

240 

SSG 

245 

SSG 

250 

SSG 

255 

SSG 

260 

SSG 

265 

SSG 

270 

SSG 

275 

SSG 

280 

SSG 

285 

SSG 

290 

SSG 

295 

SSG 

300 

SSG 

305 

SSG 

310 

SSG 

318 

SSG 

320 

SSG 

325 

SSG 

330 

SSG 

335 

SSG 

340 

SSG 

345 

SSG 

350 

SSG 

355 

SSG 

360 

SSG 

365 

SSG 

370 

SSG 

378 

SSG 

310 

SSG 

385 

SSG 

380 

73 


THETAOO.O 
PHIO*0.0 
THETAS*0.0 
PHIS-9Q. -THETAS 
5  CONTINUE 

WRITE(IPR,900) 

C 

C  SAVE  OPTICAL  PATH  PARAMETERS  AND  AMOUNTS 

C 

JTURNDaJTURN 
IKMAXDalKMAX-fl 
H10*H1 
H20*H2 
ANGD* ANGLE 
RNGD* RANGE 
SET0“BETA 
3ETA=0. 

LENO-LEN 
I TOa ITYPE 
tMAXcML 

DO  tO  U*1 , IMAX 
AZ(d)*2P(U) 

10  RHO( J)'RELHUM(d) 

DO  11  d*1 . 2KMAX0 
TS0UM< J).TBBY(J) 

UJD(J)*Ld(U) 

1 F( IJD( J ) . GT • IMAX) LUD( J)*IMAX 
00  11  K* I , KMAX 

11  WPOUM(J,K)>WPATH!J,K) 

IMAX* IMAX- 1 

C 

C  ESTABLISH  PSIO  AND  OSLO 

IARB0*0 

IF( ANQLE.LT. 0.01 .QR.ANGLE.0T.1TB.9e}  lARSOat 
C 

IP( (PARM.NE.3) 

1CALL  PSIOEl ( THETAS , PHIS , THETAO, PMIO, PSIPO . PSIO.OELO. IARBO) 

C  INITIAL  CONDITIONS  AT  THE  OBSERVER 

I ARB* IARBO 
BeTASUO.O 

IF( IARBO. EQ.O)  P51ST.PSI0 
ANGLQ«OELO 
C 

C  LOOP  OVETT  THE  POINT  TO  SUN  PATHS  TO  OBTAIN  AMOUNTS 
C 

HRITC1 IPR.BSO) 

WRITE! IPR, 953) 

(WO  FORMAT l1  SCTTH  SCTTR  SUBTENDED  SOLA*  PATH  RELATIVE  SCTTR 
ilecular  ■ ) 

BSD  FORMAT ( 1  POINT  ALT  ANGLE  ZENITH  ZENITH  AZIMUTH  ANGLE 
USE  f  V) 

DO  130  L»t«'<1  tRU.AXO 
tP( ICNO. £0.1 .OR.UTUBNO.NE.O)  go  to  30 
C  SHORT  PATH,  UP 
HUAStL) 

RELH»fiHO(L) 

THTST*ATHETA(L) 

IPtL.GE.3)  6ETaST*B€TAST*AD0ETA(L",1  ) 

GO  TO  30 


SSG  398 
SSG  400 
SSG  40S 
SSG  410 
SSG  41 S 
SSG  420 
SSG  438 
SSG  430 
SSG  438 
SSG  440 
SSQ  448 
SSG  450 
SSG  455 
SSQ  460 
SSG  465 
SSG  470 
SSG  475 
SSG  480 
SSQ  495 
SSG  490 
SSG  495 
SSG  500 
SSG  505 
SSG  510 
SSG  515 
£SG  520 
SSG  525 
SSG  530 
SSG  535 
SSQ  540 
SSG  545 
SSG  580 
SSG  535 
SSQ  800 
SSG  563 
SSG  570 
SSG  578 
SSG  890 
SSG  B8S 
SSQ  590 
SSG  893 
SSG  600 
SSG  60S 
SSG  610 
SSO  615 
SSG  630 
SSG  633 
MOSSO  630 
SSQ  635 
PHSSG  640 
SSQ  645 
SSO  650 
SSG  ESS 
SSG  660 
SSO  *65 
SSO  B70 
SSO  *73 
SSG  MO 
SSO  MS 
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ST' 

§ 

1 


1 

I 


m 

m 

$0 


a 


m 


20 

C 


25 


30 


35 

C 


055 

40 


C 

C 

50 

C 

eo 

c 

c 


070 

70 


eo 

c 


00 

too 


c 


CONTINUE 

long  path,  or  short  path  down 

I F { L . GE . 2)  BETAST-BETAST+ADBETA( L<)0(  L-1 ) ) 

IF(L.GE.dTURND)  GO  TO  25 
LdP1*ldD(L)+1 
H1.AZUJP1 ) 

RELH*RHO( LdPI ) 

THTST.180.-ATHETA(LdP1) 

GO  TO  30 
LdDC-LdO(l) 

HI.AZ(LJDL) 

RELH»RHD( LUOL) 

THTST«ATHETA( LdQL) 

I F  <  L . ED . dTURNQ) THTST. 1 80 . -ATHETA ( LdDL } 

CONTINUE 
AH1(L).H1 
ARHlU-RELH 
IF(L.LT.2)  GO  TO  35 

PSIST»PSI(PSI0iOEL0,BETAST,1AR8,IARBO) 

ANGLO.OEUPSIO.DELO.BETAST.IARBO) 

CORR'O.O 
range ■UNKNOWN 
ITYPEO 

00  90  dJTER«1,4 
H2  ■  0.0 
ANQLE'ANGLO'CQRR 
LEN*0 

I F( ANGLE. IE .90.0)  00  TO  40 
LEN»1 

WRITE ( JPR, 955)  L 

FORMAT!'  SUN  PATH  '.13,'  PASSES  THROUGH  A  TANGENT  HEIGHT1) 

CONTINUE 

HTQPaZMAX 

IFIHI.LT.HTOP.OR.LEN.EO.I)  GO  TO  60 
SCATTERING  POINT  IS  AT  OR  ABOVE  HTOP  AND  LEN.O. 

SET  W(K) «0 .0  AND  CONTINUE 
00  50  X-t.KMAX 
W(K)>0.0 
GO  TO  100 

CALL  aEOUERRCR.BENONG) 

IERR0R*-5  IF  SCATTERING  POINT  IS  IN  THE  SHADE.  ALSO  SIT  W(K).-S.O 
tF(IER«0R,NE.-5)  GO  TO  BO 
WRITE! IP8, 970)  L 

FORMAT ( '  SCATTERING  POINT  >,!»,'  IS  IN  THE  SHADE1) 

DO  70  KM  ,KHAX 
W!K)«-3.0 
IERRDR«0 
CO  TO  100 
CONTINUE 

SOL**  ZENITH  BENDING  CORRECTION 
IFldiTER.OT.1)  WRITE!  IPS, 917)  COM 
!  F(  AOSiCORS-'flfNONO) .  LT , .  1 )  00  TO  100 
CUBR*6£N0N0 
CONTINUE 

SANGkEofCfANOt  ANGLE . THTST, PSIST , I ARB) 

C0SANu»C05!CA*SAH3LE) 

LOAD  MOLECULAR  Phase  FUNCTION  array 


SSG  690 
SSQ  695 
SSO  700 
SSG  705 
SSQ  710 
SSQ  715 
SSG  720 
SSG  725 
SSQ  730 
SSQ  735 
SSQ  740 
SSQ  745 
SSQ  750 
SSG  755 
SSG  760 
SSG  765 
SSG  770 
SSG  775 
SSG  780 
SSG  785 
SSG  790 
SSG  795 
SSG  BOO 
SSG  805 
SSG  810 
SSG  B15 
SSG  820 
SSG  825 
SSG  830 
SSO  835 
SSG  840 
SSG  845 
SSG  850 
SSG  855 
SSG  860 
SSG  865 
SSG  B70 
SSG  875 
SSQ  8B0 

ssg  eas 

SSO  BOO 
SSQ  B9S 
SSG  900 
SSO  905 
SSG  910 
SSG  915 
SSO  920 
SSG  925 
SSQ  930 
SSO  935 
SSO  940 
SSO  940 
SSO  950 
SSO  OSS 
SSQ  960 
SSQ  965 
SSQ  9T0 
SSG  975 
SSO  940 


75 


PR( L)«PFMOL(COSANG) 

C  LOAD  AEROSOL  PHASE  FUNCTION  ARRAY 

C  HENYEY-GREENSTEIN 

IF(IPH.NC.O)  00  TO  105 
PA( L)*PFHG(GtCOSANG) 

GO  TO  115 

105  CONTINUE 

IF( IPH.NE. 1 )  GO  TO  110 
C  USER  SUPPLIED  PHASE  FUNCTION 

C  DETERMINE  ALTITUDE  AND  ANGLE  INDICES 

M>4 

IF(H1.LE.30.)  M»3 
IF(H1 «  LE. 1 0 . )  M-2 
IF(H1.LE.2.)  M«1 
DO  10S  LL«1,NANGLS 
IF(ANGF(LL).EO.$ANGLE)  GO  TO  115 
IF(ANGF(LL) .GT.SANGLE)  GO  TO  107 

106  CONTINUE 

107  LP1*LL 
LL.LL-1 

CALL  INTERP(2iSANGLE,ANGF(LL) , ANGF ( LP1 ) , PA( L) . F(M, LL) , F(M, LP1 ) ) 
GO  TO  115 
110  CONTINUE 

C  V  DEPENDENT  M1E  DATA  6ASE,  SAVE  SCATTERING  ANGLE  INSTEAD 
PA(L)>SANGLE 
115  CONTINUE 

C  LOAD  AMOUNTS  FROM  N(K)  INTO  NPATHS(L.K) 

DO  120  K>1 , KMAX 
120  NP ATHS ( L , K ) »M( K ) 

C  REVERSE  SION  CONVENTION  (TO  +  E  OF  N)  FOR  PRINTED  OUTPUT 
PSIST2«-PS1ST 

NRITE( IPR, 951 )LiH1 , 8ETAST , ANGLE, THTST , PSIST3,SANGLE, PR(L) 

091  FORMAT (IX, I3,6( IXi F7>2) .  (1X.E10.3)) 

130  CONTINUE 

C 

C  RESTORE  OPTICAL  PATH  AMOUNTS 

C 

IKMAX> IKUAX0-1 

MI»H1D 

H2.H20 

ANQSUN.ANULE 

ANGLE «ANOD 

RANGE«RNOO 

BETA^SETO 

CEN»LSM> 

itype«ito 

00  180  J.l .IKUAXO 
T8BV(U)»T(10UM(U) 

LU(JI'LUO(J) 

00  180  K.1 , HNAX 
160  WPATH(U.K)nNPOUMtU.M) 

NPR  *  KOPRNT 
C 

c  FORMATS 

C 

900  FORMAT (JX. ft,'  SINGLE  SCATTERING  POINT  TO  SOURCE  PATHS  ') 

017  FORVA?(>  SOLAR  2ENITM  CORRECTION  FOR  SENDING  »  1 .F10.3) 

•20  F(lfiM*T(3X. '»»♦  CUMSULATIVE  POlNT-TO-SOUXCE  AMOUNTS  *»*<) 

038  F04HUT (/,}*,' l  NPAtHS(t.K)  SU1.7') 


SSG  985 
SSG  990 
SSG  995 
SSG  1000 
SSG  1005 
SSG  1010 
SSG  1015 
SSG  1020 
SSG  1025 
SSG  1030 
SSG  1035 
SSG  1040 
SSG  1045 
SSG  1050 
SSG  1055 
SSG  1060 
SSG  1065 
SSG  1070 
SSG  1075 
SSG  1080 
SSG  1065 
SSG  1090 
SSG  1095 
SSG  1100 
SSG  1105 
SSG  1110 
SSG  1115 
SSG  1120 
SSG  1129 
SSG  1130 
SSG  1139 
SSG  1140 
SSG  1145 
SSG  1150 
SSG  1155 
SSG  1160 
SSG  1165 
SSG  1170 
550  1175 
SSG  1180 
SSG  1185 
SSG  1190 
SSG  1195 
SSG  1200 
SSG  1205 
SSG  1210 
SSG  1315 
SSQ  1220 
SSG  1233 
SSG  1330 
SSG  1235 
SSG  1340 
SSG  134S 
SSG  1250 
SSG  1355 
SSG  1260 
SSG  1265 
SSG  1370 
SSG  1375 


930  F0RMAT(1X,I2,7(2X,E10.3))  SSG  1280 

931  F0RMAT(8E10.3)  SSG  1285 

940  FORMAT (2X, 1 L  WPATHS(L.K)  K.8,1«‘)  SSG  1260 

980  FORMAT ( 2X , 1 THET AO  <  89.5,  OBSERVER  ASSUMED  TO  BE  AT  THE  SOUTH  SSG  1295 

1P0LE,  PROBLEM  HAS  BEEN  REMAPPED  TO  THE  EQUATOR1)  SSG  1300 

981  FORMAT ( 2X, 'THET AO  >  89-5,  OBSERVER  ASSUMED  TO  BE  AT  THE  NORTH  SSG  1305 

1  POLE,  PROBLEM  HAS  BEEN  REMAPPED  TO  THE  EQUATOR1)  SSG  1310 

RETURN  SSG  1315 

END  SSG  1320 


SUBROUTINE  PSIDEL(THETAS, PHIS, THET AO, PHIO,PSIPO2,PSI0,DEL0, 

IARBO)  PSD 

100 

c 

PSD 

105 

c 

THIS  ROUTINE  CALCULATES  PS10  (THE  RELATIVE  AZIMUTH  BETWEEN 

THE  PSD 

110 

c 

LINE  OF  SIGHT  AND  THE  OIRECT  SOLAR  PATH,  AT  THE  OBSERVER) 

PSD 

1 15 

c 

AND  DELO  (THE  ANGLE  SUBTENDED  AT  THE  EARTH'S  CENTER  BV  THE 

PSD 

120 

c 

OBSERVES  AND  THE  SUBSOEAR  POINT). 

PSD 

125 

COMMON  /PARMTR/  RE , DELTAS, ZMAX, I MAX, 1M0D, ISMAX, IPATH 

PSO 

130 

COMMON  /CNSTNS/  PI .CA.DEG.GCAIR.BIGNUM.BIGEXP 

PSD 

135 

DATA  EP5ILN/1 . 0E~5/ 

PSO 

140 

c 

PSO 

145 

c 

CHANGE  CONVENTION  FOR  PSIPO  FROM  (EAST  OF  NORTH)  TO  (NORTH  OF  IASTPSD 

150 

c 

FOR  COMPUTATIONAL  PURPOSES.  RANGE  IS  -ISO  TO  +180. 

PSD 

155 

PSIPO*90 .0-PSt  P02 

PSO 

160 

IF( PSIPO. GT. ISO. 0)  PSIPO-PSIPO-360.0 

PSD 

165 

c 

PSO 

1T0 

0PHUPH1S-PHI0 

PSO 

1T5 

OTHT»TKETAS-THETAO 

PSO 

180 

thts»thetas/oeg 

PSO 

185 

THTO»THETAO/OEG 

PSO 

<90 

OPH*l)PHl/OEG 

PSO 

195 

STS*S1N(7HTS) 

PSO 

200 

STO.StN(THIO) 

PSO 

205 

CTS«COS(TMTS) 

PSD 

210 

CTO«COS(TMTO) 

PSO 

215 

SOPMl.SIN(OPH) 

PSD 

220 

CDPHI •COi( OPH) 

PSO 

224 

TTS.TAN(TMIS) 

PSO 

230 

TTO*TAN(  iMfO) 

PSO 

239 

c 

PSO 

240 

c 

CALCULATE  08L0,  CHECK  FOR  SPECIAL  CASES* 

PSD 

249 

IF(ASMOiHU).GT.mUN)  00  TO  10 

PSD 

250 

c 

COLONGIVUOt 

PSD 

259 

0tL0»A5Sl0THT) 

PSO 

260 

CO  *0  30 

PSD 

269 

10 

t f ( aBS(QTMT ) «0T . SPSilN)  GO  TO  30 

PSO 

3T0 

c 

COlATUUOE 

#so 

3T5 

CEL0»A6S(0PH|) 

PSD 

200 

(jo  to  as 

PSD 

289 

c 

GENERAL  CASE 

PSD 

290 

ao 

DCLC«9EG*ACOS(CfS*ClG*eOPHt»STS*STO) 

PSO 

244 

so 

JF(C«L0.Lg.EP5)LfO  DEL0«Q>0 

PSD 

300 

c 

CALCULATE  PSIO  t*PSIS0‘PSIPO) 

PSO 

305 

c 

CHECK  FOR  SPECIAL  CASES  WHERE  EITHER  PSISO  OR  PSIPO  ARC  ARBITRARY  PSD 

310 

c 

PSO 

315 

c 

VERTICAL  OPTICAL  PATH,  PSIPO  IS  ARSITOARV.  THIS  CASE  MAS  FLACOCO  PSD 

3.30 

c 

!H  SStitO  BY  SETTING  IARB0.1 

PSD 

335 

c 

PSO 

330 

G 

OBSERVER  AND  SUBSOLAR  POINT  COINCIDE.  PSISO  |S  ARBITRARY 

PSD 

335 

1  F( OSLO. £0.0.0)  tARCO* IARBC+3 

PSO 

340 

|f( lARBO.CO.O)  GO  TO  40 

PSO 

34S 

c 

IAR«O*0. I.a.3  FORK  PSIO  DEFINITE,  PSIPO  ARBITRARY,  PSISO  ARBITRARYPSO 

350 

c 

BOTH  PSIPO  ANO  PSISO  ARBITRARY.  RESPECTIVELY.  PSD 

355 

RETURN 

»so 

360 

40 

AKUM£a*T»0»tDPHl-TTS 

PSO 

365 

oekom*(i .•TTo**ai*ctO‘SOPHi 

PSO 

3*0 

|F(ASS(ANCMER).GT.EPStLN)  SO  TO  SO 

PSO 

376 

c 

MUMERATORto.O.  39IAT  CIRCLE  CONTAINING  THE  OBSERVER  AND  THE  tUSSOLPSO 

380 

c 

POINT  IS  DUE  EAST-NEST  at  THE  OBSERVER 

PSO 

385 

PSISO-O.O 

PSO 

380 

77 


IF(DPHI.GT.O.O)  PSIS0*180.0 

PSD 

395 

GO  TO  90 

PSD 

400 

so 

IF(ABSJDENOM).GT.EPSILN)  GO  TO  60 

PSD 

405 

c 

DENOMINATOR  *0.0,  ATAN(INFINITY)»+90  OR  -90 

PSD 

410 

PSIS0.90.0 

PSD 

415 

IFJ0THT.LT. 0.0)  PSISO*-90.0 

PSD 

420 

GO  TO  90 

PSD 

425 

c 

GENERAL  CASE 

PSD 

430 

60 

PSlSO»OEG*ATAN(ANUMER/DENOM) 

PSD 

435 

C 

AT AN  RETURNS  ARGUMENTS  BETWEEN  -90  AND  90.  MAY  NEED  TO  CORRECT 

PSD 

440 

C 

NO  CORRECTION  NECESSARY 

PSD 

445 

IF(OPHI.LT.O.O)  GO  TO  90 

PSD 

450 

C 

CORRECTION  NECESSARY 

PSD 

455 

IF(DPHI.GT.O.O)  GO  TO  70 

PSD 

460 

c 

OPH!>0.0 

PSD 

465 

PSISO-90.0 

PSD 

470 

IFJ0THT.LT. 0.0)  P$ISO«-90.0 

PSD 

475 

GO  TO  90 

PSD 

480 

c 

OPHl.GT.O.O 

PSD 

485 

70 

ifjpsiso.gt.o.o)  GO  TO  80 

PSD 

490 

PSISO»PSISO+180.0 

PSD 

495 

GO  TO  90 

PSD 

500 

80 

PSISO'PSlSO-180.0 

PSD 

505 

80 

CONTINUE 

PSD 

510 

PSIO*PSISO-PS1PO 

PSD 

515 

c 

RANGE  OF  PSIO  IS  -180.0  TO  180.0,  CORRECT  IF  NECESSARY 

PSD 

520 

IFJPS10.LT. -180.0)  PSIO»PSIQ+360.O 

PSD 

595 

IFJPSIO.GT.  180.0)  PSI0-PS10-360.0 

PSD 

530 

c 

PSD 

535 

RETURN 

PSD 

540 

ENO 

PSD 

545 

FUNCT ION  SCTANGt ANGLST . TMTST . PS1ST , IAR8) 

SCT 

100 

C 

SCT 

103 

C 

FUNCTION  SCT AND  RETURNS  THE  SCATTERING  ANGLE  (THAT  IS,  THE 
ANGLE  BETWEEN  THE  SUN'S  RAYS  AND  THE  LINE  OF  SIGHT)  AT  ANY 

SCT 

no 

C 

SCT 

115 

C 

POINT  ALONG  THE  OPTICAL  PATH. 

SCT 

120 

COMMON  /PARMTR/  WE .DELTAS, IMAX , 1MAX, 1 MOD. I UMAX. 1 PATH 

SCT 

125 

COMMON  /CNSTNS/  PI .CA.OEO.CCAIR.BlCNUM.eiGEXP 

SCT 

130 

c 

SCT 

139 

SUNIEN.ANGLST/OEO 

SCT 

140 

pthien»thtst/o«g 

SCT 

145 

IF! IAWB.EO.0)  GO  TO  10 

SCT 

ISO 

c 

SPECIAL  CASES  IF  PSI  IS  ARBITRARY 

SCT 

155 

$CT4NGaOEG*ACOS(CO$JSUN2€N)*COS(PTHIEN) ) 

SCT 

160 

RETURN 

set 

165 

10 

CONTINUE 

SCT 

170 

PSI*PSI5T/0!0 

set 

175 

C 

GENERAL  CASE 

SC: 

1B0 

A>StN(SUNIEN)<SIN$PTH2IN)*COS(PSI)*COS(SUNIIM)*COS(PTH2CH) 

SCI 

IBS 

SCrA«a»DEG*ACOS(X) 

SCT 

190 

RETURN 

SCT 

19S 

ENO 

SCT 

300 

78 


FUNCTION  t>SIiPSlO,OElO.R£T*,JARa,URBO) 

PSI 

ICO 

c 

PSI 

105 

c 

FUNCTION  PSI  RE*USNS  THE  VALUE  Or  .'SOLAR  AZINUTH  RELATIVE  TO 

PSI 

110 

c 

THE  LINE  OF  SIGHT,  AT  THE  CURRENT  SCATTERING  LOCATION 

PSI 

115 

COMMON  /PARMTR/  RE .DELS AS.ZMAX, IMAX, IMOD, I8MAX, IPATH 

PSI 

130 

COMMON  /CNSTNS/  FI ,CA>OEG,GCAIRfBlONUU,GIGEXP 

PSI 

125 

DATA  EPSILN/f .OE-S/ 

PSI 

130 

OELOR.DELO/OEG 

PSI 

135 

8ETAR.BETA/0EG 

PSI 

140 

IF(IARBO.EO.O)  GO  TO  5 

PSI 

145 

c 

SPECIAL  CASES  WHEN  PSIQ  ■•£  ARBITRARY 

PSI 

Y60 

iaro»iarbo 

PSI 

155 

(F(IARSO.E(},I.OR.IARBO-E0.3)  return 

PSI 

160 

IF(BETA.LE.EPSILN)  return 

PSI 

18S 

c 

PSI*180.0  (MOVED  OUT  FROM  U?*Otft  THE  SUN) 

PSI 

no 

1AR8.0 

PSI 

175 

PSI'tSO.O 

PSI 

180 

RETURN 

PSI 

185 

5 

CONTINUE 

PSI 

180 

c 

GENERAL  CASE 

PSI 

195 

PS!OR*PSIQ/OEG 

Pfl 

300 

I AN 6*0 

PSI 

305 

ANUNER«SIN(OELOR)«SIN(PSIGR) 

PSI 

310 

0EN0M*COS(9ETAR)»SIN(0EL0fi)»C0S(pS10R)-SIN(BETAR).cO$(0Et0R} 

PSI 

215 

c 

SPECIAL  CASES 

PSI 

320 

c 

NUMERATOR  CUES  TO  ZERO  IN  The  FOLLOWING  3  CASES 

PSI 

225 

C  1) 

DELO.0.0 

PSI 

330 

IF(OELO.GT,e«SHN!  GO  TO  30 

PSI 

235 

IF(0ETA.GT.EP$UN)  GO  TO  10 

PSI 

£40 

I  AR(1»2 

PSI 

345 

RETURN 

PSI 

350 

IQ 

PSI‘tRO.0 

PSI 

355 

RETURN 

PSI 

260 

C  3) 

PSIQ»0.0 

PSI 

365 

30 

tF(AB5{PS;0i.GT.EPSlLN)  GO  TO  <0 

PSI 

2TQ 

IF(A8S(8ETA-OElO).GE.ERSILN)  GO  TO  30 

PSI 

2T5 

c 

SCATTERING  POINT  IS  DIRECTLY  UNOtS  THE  SUN 

PSI 

380 

IAR0«3 

PSI 

285 

RETURN 

PSI 

390 

30 

IFIBETA.LT. OELO)  PSi.0,0 

PSI 

395 

if(8eta.gt,oelo!  ?si»iao.o 

PSI 

300 

RETURN 

sos 

C  3) 

PStCMRQ.e 

PSI 

910 

40 

!F(A8*J((>Sl0).U.(»»O.0«EPStL»))  00  TO  «6 

PSI 

315 

PS! '103.0 

Pst 

330 

9  E-JV«N 

PSI 

32$ 

GO 

CONTINUE 

PSI 

330 

C 

DENOMINATOR  CAN  -S3  TO  ZERO  FOR  THE  FOLLOWING  3  CASE* 

P5J 

335 

c  n 

OtTX.OUQ  ANO  &SIQ*0.0 

RSI 

340 

C 

THIS  CAS®  WAS  ha-.OLEO  SaRlIe# 

S45 

C  3) 

general  case 

?Si 

JSO 

IFtA8SIt«K3M),at.CPSlLN)  GO  TO  *0 

PSI 

359 

JFlflSIO.LT.O.O)  PSi.-SS.O 

PSI 

360 

IF(PSIO.QT.O,0)  PSl«SO.O 

*st 

36$ 

RETURN 

Hi 

370 

40 

COnT’N'jI 

P8J 

3T6 

»SS  *9EG*as'aN(*nv.ver/o«kBMi 

.  Pii 

At O 

C 

note  a tan  returns  arguments  ssiwstN  »*o  two  *J.  »si 

m 

3*5 

c 

ANO  RSIO  ShOULO  EE  OF  >ME  SAME  sign. 

HI 

3*0 

iFC»sia.oT.o,o.A«a.Rsi.LT.a.0ii  «i‘*ss»tK, 

PSI 

38$ 

l*IPStO.LT,O.0.*NO.«t,GT.a.O)  P*S*PSI~!SG, 

PSI 

400 

RETURN 

PSI 

*0$ 

END 

p*t 

410 

onnonnno 


c 

c 


»o 


c 


FUNCTION  DEUPS.O. OSLO, BETA,  IARBO) 

FUNCTION  DEL  RETURNS  THE  VALUE  OF  THE  SUN’S  ZENITH  ANGLE 
AT  ANV  POINT  ALONG  THE  OPT iCAL  PATH  BASeq  LPCN  STRAIGHT 
LINE  GEOMETRY  {NO  REFRACTION).  THli.  ANGLE  IS  USEO  TO  SPECIFY 
THE  SCATTERING  POINT  TO  SUN  PATHS.  THE  BENDInG  DUE  TO  REFRACTION 
ALONG  this  P.’TH  IS  OETEPJFINED  3Y  THE  GEO  ROUTINES.  IF  THE  BENDING 
IS  GREATER  THAN  ONE  DEGREE  THE  ZENITH  ANGLE  IS  CORRECTED  ACCORDIN 
ANO  THE  PATH  calculation  is  repeated, 
common  /parmtr/  re.oeltas.zmax.imax.imod.i^jax.ipath 

COMMON  /CN'TNS/  p;.CA,0EG,GcAIR,8IGNL«.8IGEXP 
data  EPSUN/1.0E-5/ 

IF( IAR8O-EU.0)  GO  TO  10 
SPECIAL  CASES  If  PS10  IS  ARBITRARY 
IF<  IAReO.E.3.1 )  3EL-OELO 
tf'(  iASBO.EQ.2)  OElsBETA. 

IF(  URS0.EQ.3)  D£L»0.0 

RETURN 

COn'INUE 

P3IQR»PS!0/D£G 

DELOR=OELO/OEG 

8ETAR»8gTA/DEG 

GENERAL  CASE 

X“COS( DELOR)»COG{3ET*R)ySTN{ OELGR) •SiNt 8ETAR)*C0S<  psior) 
0?.L-OEG»ACOS(X) 

RETURN 

END 


DEL 

100 

DEL 

10S 

DEL 

110 

DEL 

115 

DEL 

120 

DEL 

125 

DEL 

130 

IDEL 

133 

DEL 

140 

DEL 

145 

DEL 

150 

DEL 

155 

DEL 

160 

OEL 

165 

DEL 

t70 

DEL 

175 

DEL 

ISO 

DEL 

183 

OEL 

190 

OEL 

195 

OEL 

200 

DEL 

205 

OEL 

210 

OEL 

215 

OEL 

220 

OEL 

225 

OEL 

230 

QEL 

235 

SO 


nnoo 


10 


20 

C 


30 

C 


60 


SUBROUTINE  SSRAD(IPH,IK,ITZ£RC,IPATH,V,$UMSSR) 

SUBROUTINE  SSRAD  PERFORMS  THE  LAYER  BY  LAYER  SINGLE  SCATTERING 
RADIANCE  SUM. 

common  /CARD1/  MODEL, ITYPE.IEMSCT .Ml ,¥2,M3, IM.NOPRNT ,TBOUNDiSALB 
COMMON  /CARDS/  IHAZE , ISEASN, IVULCN . ICSTL. ICIR, IVSA.VIS.WSS ,WHH, 

1  RAINRT 

COMMON  /CARD3/  HI ,H2 .ANGLE .RANGE, BETA, RE , LEN 

COMMON  RL.-.HUM(34)  ,HST0R(34)  ,ICH(4) ,  VH(16)  ,TX(16)  ,W(16) 

COMMON  WPATH(68, 16) ,TB8Y(68) 

COMMON  A8SC(4,40) ,EXTC(4,40) ,VX2(40) 

COMMON  /SOLS/  AH1 <68) ,ARH(S8) , 

X  WPATHS(68,16) , PA(68) , PR(63) ,ATHETA(35) , ADBETA(3S) , LJ(«9) , JfURN 
X  ANGSUN 

COMMON  /SRAD/  TE81 ,TEB2, TASP1 , TASP2.TMSP1 , TMSP2 , TE82SV 
IFf ITZER0.EQ.1)  GO  TO  60 

t;:6=tx(6) 

TX7~TX(7) 

TX9=TX(9) 

TX10=.TX(10) 

IF( IPATH-2)  10,20,30 

CONTINUE 

ISKIP  ■=  0 

INITIAL  CONDITIONS 

SINGLE  SCATTERING  RADIANCE  SUM 

SUMSSRsO.Q 

OPTICAL  PATH  TRANSMITTANCES 
TASP2-1 . 0 
TMSP2=1 .0 

l  PATH  TRANSMITTANCE 
TcB2=TX9 

MOLECULAR  AND  AEROSOL  PHASE  FUNCTIONS 
PM0L2=PR(IK) 

PAER2=PA(IK) 

IF( IPH.E0.2) 

1  CALL  PHASEF<V,AH1(1K),PA(1K),ARH(IK),PAER2) 

RETURN 

CONTINUE 

CURRENT  L  PATH  TRANSMITTANCE 
TE81=TY9 

CURRENT  MOLECULAR  ANO  AEROSOL  PHASE  FUNCTIONS 
PMOLIoPR(IK) 

PAERI^PA(IK) 

!F( IPH.E0.2) 

1  CALL  PHASEF(V,AH1(IX),PA(IK),ARH(IK),PAER1) 

RETURN 

CONTINUE 

CURRENT  OPTICAL  PATH  TRANSMITTANCES 

TASP1 =TX7/TX10 

TMSPI^TXS 

SINGLE  SCATTERING  RADIANCE  CALCULATION 
I F l T ASP  1 .  SQ .  0 .  Q  .OR.  TMSP1.EO.O.O  .0R.TMSP2.E0.0.0  .OR. 

1  TASP2.EQ.0.0)  GO  TO  SO 

XA1 =PAUR1*TEB1/TASP1 
XA2 aPAER2*TEB2/TASP2 
XM1 uPMOLI *TEBf /TMSP1 
XM2=PM0L2*TEB2/TMSP2 
0TAS?*TA3P2-TASP1 
0TMSP»TMSP2-TMSP1 

could  ADO  A  CHECK  FOR  SMALL  DTMSP.OTASP  AND  BYPASS  CALCULATION 
SUMSSR.SUMSSR+.5*(0TASP*(XA1+X».a)+OTMSP*(XM1+XM2)  ) 

RESET  L  ANO  OPTICAL  PATH  TRANSMITTANCES 
SO  CONTINUE 
TASP2*TASP1 
TEB2SV.TEB2 
TMSP2-TMSP1 
TEB2.TEB1 

RESET  PHASE  FUNTION  VALUES 
PAER2*PAER1 
PM0L2.PM0L1 
CONTINUE 
RETURN 
END 


SSR 

100 

SSR 

105 

SSR 

110 

SSR 

115 

SSR 

120 

SSR 

125 

SSR 

130 

SSR 

135 

SSR 

140 

SSR 

145 

SSR 

150 

SSR 

155 

SSR 

160 

SSR 

165 

SSR 

170 

SSR 

175 

SSR 

180 

SSR 

185 

SSR 

190 

SSR 

195 

SSR 

200 

SSR 

205 

SSR 

210 

SSR 

215 

SSR 

220 

SSR 

225 

SSR 

230 

SSR 

235 

SSR 

240 

SSR 

245 

SSR 

250 

SSR 

255 

SSR 

260 

SSR 

265 

SSR 

270 

SSR 

275 

SSR 

280 

SSR 

2B5 

SSR 

290 

SSR 

295 

SSR 

300 

SSR 

305 

SSR 

310 

SSR 

315 

SSR 

320 

SSR 

325 

SSR 

330 

SSR 

335 

SSR 

340 

SSR 

345 

SSR 

350 

SSR 

355 

SSR 

360 

SSR 

365 

SSR 

370 

SSR 

375 

SSR 

380 

SSR 

3B5 

SSR 

390 

SSR 

395 

SSR 

400 

SSR 

405 

SSR 

410 

SSR 

415 

SSR 

420 

SSR 

425 

SSR 

430 

SSR 

435 

SSR 

440 

SSR 

446 

SSR 

450 

SSR 

455 

SSR 

460 

SSR 

465 

81 


oo  oo 


c 

c 

c 

c 

c 


SUBROUTINE  SOURCE(VV, ISOURC, IDAY, ANGLE, SS)  SRC 
COMMON  /ICU/  ICALL, FPHS, FALB, F0R8IT  SRC 
SUBROUITNE  SOURCE  CONTAINS  THE  SOLAR  INTENSITY  DATA  AS  A  SRC 
FUNTION  OF  WAVELENGTH.  THIS  ROUTINE  IS  ALSO  CAPABLE  OF  CALCULATINGSRC 
LUNAR  INTENSITY, 8ASED  ON  THE  PHASE  ANGLE  BETWEEN  THE  SUN,  MOON  ANOSRC 


EARTH.  CORRECTIONS  ARE  MADE  FOR  THE  SUN'S  ELLIPTIC  ORBIT. 

DIMENSION  N0AY(13) ,RAT( 13) , PH5( 17) , A LB (29) , VSUN(210) , ESUN( 210) 
DATA  NDAY/1, 32, 60, 91, 121, 151, 181 ,212, 243, 273, 304, 334, 366/ 

DATA  RAT/1 .034,1 .030, 1 .019,1 .001 , .965, .972, .967, .971 , .983, 

1  .998,1.015,1.029,1.034/ 

DATA  PHS/100. ,73.2,57.8,42.3,32.0,33.3,16.7,13.4,8.7,6.7, 

1  4. 7, 3. 6,3. 4,1 .2, 0.9, 0.4, .002/ 

DATA  AL8/. 001,. 01,. 03,. 075,. 1,. 13.. IBS,. 17,. 178,. 185,. 2,. 211, 

1  .231,. 25,. 275,. 289,. 285,. 287,. 3,. 29,. 3,. 31,. 313,. 319,. 329 

1  ,.339,. 345,. 350,. 5/ 

WAVELENGTH  (MICROMETERS)  AT  WHICH  SOLAR  INTENSTY  DATA  IS  STORED 


SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 

SRC 


100 

*101 

110 

119 

130 

125 

130 

135 

140 

145 

150 

155 

160 

IBS 

170 

175 

1B0 

185 


DATA  VSUN/ . 

115,. 

120,. 

125,. 

130,. 

140,, 

150, , 

.  teo, 

SRC 

190 

1 

.170, 

.180, 

.190, 

.200, 

.210, 

.220, 

.225, 

.230, 

,.235, 

.240, 

,  .245, 

.250, 

SRC 

195 

2 

.255, 

.260, 

.265, 

.270, 

.275, 

.280, 

.285, 

.290, 

,  .395, 

.300 

,.305, 

.310, 

SRC 

200 

3 

.315, 

.320, 

.325, 

.330, 

.335, 

.340, 

.345, 

.350, 

,.355, 

.360, 

,.365, 

.370, 

SRC 

205 

4 

.375, 

.380, 

.385, 

.390, 

.395, 

.400, 

.405, 

.410, 

,  .415, 

.420, 

,.425, 

.430, 

SRC 

210 

8 

.435, 

.440, 

.445, 

.450, 

.455, 

.460, 

.465, 

.470, 

,  .475. 

.480, 

,.485, 

.490, 

SRC 

215 

6 

.495, 

.500, 

.505, 

.510, 

.515, 

.520, 

.525, 

.530, 

,  .535, 

.540, 

,.545, 

.  950 , 

SRC 

220 

7 

.555, 

,560, 

.565, 

.570, 

.575, 

.580. 

.585, 

.590, 

,  .595, 

.600, 

,  ,605, 

.610, 

SRC 

225 

8 

.620, 

.030, 

.640. 

.690, 

.660, 

.670, 

.680, 

■  690, 

,  .700, 

.710, 

,.720, 

.730, 

SRC 

230 

9 

.740, 

.750, 

.780, 

.770, 

.730, 

.790, 

.800, 

.810, 

,  .820, 

.830, 

,.840, 

.650, 

SRC 

235 

1 

.860, 

.870, 

.880, 

.630, 

.900, 

.910, 

.920, 

.930, 

,  .940. 

.950, 

,.960, 

.970, 

SRC 

240 

1 

.980, 

.990, 

1.00, 

1 .05, 

1.10, 

1.15, 

1 .20, 

1.25, 

,  1 .30. 

1 .35, 

,1.40, 

1.45, 

SRC 

245 

2 

1,50, 

1.55, 

1 .60. 

1 .65, 

1.70, 

1.75, 

1 .80, 

1  .85, 

,1.90, 

1 .95, 

,2.00, 

2.10, 

SRC 

250 

3 

2.20, 

2.30, 

2.40, 

2,60, 

2.60, 

2,70, 

2.80, 

2.90, 

,3.00, 

3.10, 

,3.20, 

3.30, 

SRC 

255 

4 

3.40, 

3.50, 

3.60, 

a. 70, 

3.80, 

3.90, 

4.00, 

4.10, 

,4.20. 

4.30, 

,4.40, 

4.50, 

SRC 

260 

5 

4.60, 

4-70, 

4.80, 

4.90, 

5.00, 

6.00, 

7.00, 

8.00, 

,9.00, 

10.0, 

,11.0, 

12.0, 

SRC 

265 

6 

13.0, 

14.0, 

15.0, 

18.0, 

17.0, 

18,0, 

19.0, 

20.0, 

,25.0, 

30.0, 

,35.0, 

40.0, 

SRC 

270 

7 

50.0, 

60.0, 

80.0, 

100.  , 

120. , 

150.  , 

200.  , 

250 .  , 

,300., 

400., 

,1000. 

/ 

SRC 

275 

SOLAR  INTENSITY  IN  UNITS  OF  WATTS  M-3  MICROMETER-1  SRC  280 

SRC  285 

DATA  ESUN/. 007, .9. .007, .007, .030, .070, .230, .630,  SRC  290 

1  1  33. 2. 71, 10. 7, 22. 9, 57. 6, 84.9.86.7,59. 3, 63. 0,72. 3. 70. 4, 104.,  SRC  295 

2  130. ,135. .232. ,204. ,222. ,315. ,482. .584. ,514. ,603., 689. ,764. ,  SRC  300 

3  830. ,975. ,1059. ,1081 . ,1074. ,1069. , t093. ,1083. ,1068. ,1132. ,  SRC  305 

4  1181. ,1157. ,1120. .1098. ,1098. ,1189. ,1429. ,1644. ,1751. ,1774,,  SRC  310 

5  1747. ,1893. ,1639. ,1663. , t810. , 1922. ,2006. ,2057. ,2066. ,2046, ,  SRC  315 

3  2033. ,2044. ,2074. ,1976. ,1950. ,1960. ,1942, ,1920. ,1882. ,1833. ,  SRC  330 

7  1833. ,1852. ,1842. ,1818. ,1783. ,1754. ,1725. .1720. ,1695. ,1705,,  SRC  325 

8  1712. .1719. ,1715. ,1712. , 1700. ,1682. ,1668. .1647. ,1635. ,1602. ,157  SRC  330 

9  0., 1544. .1511. ,1486. .I486. ,1427. ,1402. ,1396. ,1344, ,1314. ,1290.,  SRC  335 

1  1260. ,1235. ,1211 . ,1 185. , 1 159. ,1134. ,1109. ,1088. ,1060. ,1036. ,  SRC  340 

1  1013. .990. .968. ,947. ,926. ,908. ,891 . ,880. ,869. ,856., 047. ,837. ,  SRC  345 

2  820. ,803. ,785. ,767. ,748. ,668. .593. ,535. ,485. ,438. ,397. ,358. ,  SRC  350 

3  337, ,312. ,288. ,767. .245. .223. ,202. . 180. , 159. , 142. ,126. .1 14. ,  SRC  355 

4  103. ,90. ,79. .69. ,62. ,55. ,48. ,43. ,39. ,35. ,31 . .26. ,22.8,19.2,  SRC  360 

6  16,6, 14. 6, 13,5, 12. 3, 11. 1,10, 3, 9.5, 8. 7,7. 6, 7, 1,8.5,5.92, 5. 35 ,  SRC  365 

5  4.86,4.47,4. 11 ,3.79,1 .82, .99, .685, .367, ,241 , .166, .117, ,0851,  SRC  370 

7  . 0634,. 0481 ,  .0371  ,  .0291 .  .0231  ,.0186,  .0152, 6. 17E-3, 2. 97P.-3,  SRC  375 

8  1. 60E-3, 9. 42E-4, 3. 91 E-4 , 1 , 90E-4 , 6.166-9,2. 576-6,1.266-5,  SRC  3B0 

9  B.23E-8, 1 .69E*6,7.00E”7,3.40E»7, 1 •10E-7 ,0,0/  SRC  305 

V»10000./VV  SRC  390 


IF(IS0URC,NE.1)  GO  TO  50 

SRC 

395 

IF(ICALL.EQ.I)  GO  TO  20 

SRC 

400 

c 

SRC 

405 

c 

MOON  PHASE  ANGLE  FACTOR 

SRC 

410 

c 

SRC 

415 

FPHS«0.0 

SRC 

420 

IF( ANGLE. GT. 160. )  GO  TO  20 

SRC 

425 

IP.ANGLE/10. 

SRC 

430 

IF(FLOAT(IP«10).EO. ANGLE)  GO  TO  10 

SRC 

435 

FPHS«PHS(IP+1 )+( ANGLE-10. •IP)«(PHS( IP+2)-PHS(IP+1 ) )/10. 

SRC 

440 

GO  TO  20 

SRC 

445 

10 

FPHS«PHS(IP+1) 

SRC 

450 

c 

SRC 

455 

c 

GEOMETRICAL  ALBEDO  OF  THE  MOON 

SRC 

460 

c 

SRC 

465 

20 

FALB.Q.4 

SRC 

470 

IF(V.GE.5.)  GO  TO  40 

SRC 

475 

IF(V.GT.2.B)  GO  TO  30 

SRC 

460 

I1.VM0 

SRC 

485 

FALB*ALB(I1  )  +  (ALB{I1-*.1  }-ALB(  11 )  )*(  V-I1  »0. 1  )*10. 

SRC 

490 

GO  TO  40 

SRC 

495 

30 

FALB»ALB(28)+(ALB(29)-ALB(28))*(V-2. 81/2.2 

SRC 

500 

40 

CONTINUE 

SRC 

505 

c 

SRC 

510 

c 

SUN  ELLIPTIC  ORBIT  FACTOR 

SRC 

515 

c 

SRC 

520 

so 

IF( ICALL.E0.1)  GO  TO  90 

SRC 

525 

FORBIT-O.O 

SRC 

530 

IF( IOAY .GT . 0  .ANO.  I0AY.LT.367)  GO  TO  55 

SRC 

535 

FQRBIT  =  1.0 

SRC 

540 

GO  TO  90 

SRC 

545 

55 

CONTINUE 

SRC 

550 

00  60  1*1,13 

SRC 

555 

IF(Nl)AYd)  .EO.iOAY)  GO  TO  oO 

SRC 

560 

IF(NOAY(I).GT.IOAY)  GO  TC  70 

SRC 

565 

60 

CONTINUE 

SRC 

570 

70 

FORBIT-RAT ( 1-1 )+( I0AY-N0AY(I-1 ) )»(RAT( l )-RAT( 1-1 ) ) /( NDAY ( I ) 

SRC 

575 

1  -NOAY(I-I)) 

SRC 

580 

GO  TO  90 

SRC 

565 

00 

FGH81  T.RAT ( I  ) 

SRC 

590 

00 

CONTINUE 

SRC 

595 

I  CALL*  1 

SRC 

600 

c 

SRC 

605 

c 

SOLAR  intensity 

SRC 

610 

c 

SRC 

615 

SS*0.0 

SRC 

620 

IF(V.LT.VSUN(1) .OR, V. GE. VSUN(210) )  RETURN 

SRC 

625 

00  100  1.1,210 

IF(VSUNd).GE.V)  GO  TO  120 

SRC 

630 

SRC 

635 

100 

CONTINUE 

SRC 

640 

120 

I F ( VSUN( I ) . EQ. V)  GO  TO  130 

SRC 

645 

SS» ( ESUN( I )-ESUN( 1-1 ) )*(V-VSUN( 1-1 ) )/( VSUN{ I )-VSUN( 1-1 ) ) 

SRC 

650 

1  +ESUN( I-1J.F0RBIT 

SRC 

655 

GO  TO  140 

SRC 

660 

130 

SS«ESUN(I)*FQRBIT 

SRC 

665 

14G 

IF( ISOURC.E0.1 )  SS»SS*FPHS.FALB*2.04472E-7 

spc 

670 

C 

CONVERT  W/M-2-M1CR0N  TO  W/CM-2-MICR0N 

SRC 

678 

ss-ss*.oooi 

SRC 

680 

RETURN 

SRC 

685 

END 

SRC 

000 

83 


SUBROUTINE  SUBSOL ( THETAS > PHIS, TIME, I DAY) 

SBS 

too 

c 

SBS 

105 

c 

SUBROUTINE  SUBSOL  CALCULATES  THE  SUBSOLAR  POINT  ANGLES 

SBS 

110 

c 

THETAS  AND  PHIS  BASED  UPON  IDAY  AND  TIME.  SINCE  EACH 

SBS 

115 

c 

YEAR  IS  365.25  DAYS  LONG  THE  EXACT  VALUE  OF  THE  DECLINATION 

SBS 

120 

c 

ANGLE  CHANGES  FROM  YEAR  TO  YEAR.  FOR  PRECISE  VALUES  CONSULT 

SBS 

125 

c 

1  THE  AMERICAN  EPHEMERIS  AND  NAUTICAL  ALMANAC'  PUBLISHED  YEARLY 

SBS 

130 

c 

BY  THE  U.S.  GOVT.  PRINTING  OFFICE.  ALSO,  THE  SOLAR  POSITION 

SBS 

135 

c 

IS  CHARACTERIZED  BY  25  POINTS  BELOW;  THIS  SHOULD  PREDICT  THE  SUBSOSBS 

140 

c 

ANGLES  WITHIN  ONE  DEGREE.  FOR  INCREASED  ACCURACY  ADO  MORE  DATA 

SBS 

145 

c 

POINTS 

SBS 

150 

c 

SBS 

155 

c 

THE  EQUATION  OF  TIME,  EOT,  IS  IN  MINUTES 

SBS 

160 

c 

THE  DECLINATION  ANGLE,  DEC  IS  IN  DEGREES 

SBS 

165 

c 

SBS 

170 

COMMON  /MODEL/  ZM(34) . PM(34) , TM(34) , RFNDX(34) ,DENSTY( 16,34) 

SBS 

175 

COMMON  /IF I L/  IRD, IPR, IPU.NPR 

SBS 

180 

DIMENSION  NDAY(25) ,EQT(25 ) , DEC (25) 

SBS 

185 

DATA  NDAY  /I ,9,21 ,32,44 ,60,91 , 121 , 141 , 152, 160, 172, 182, 

SBS 

190 

1  190,202,213,244,274,305,309,325,335,343,355,366/ 

SBS 

195 

DATA  DEC  /-23. 07, -22. 22, -20. 08,-17. 32, -13. 62, -7. 88, 4. 23, 

SBS 

200 

1  14.83,  20.03,21.95,22.87,23.45,23.17,22.47,20.63,18.23,8.58, 

SBS 

205 

2  -2.88,-14.18,-15.45,-19.75,-21.68,-22.75,-23.43,-23.07/ 

SBS 

210 

DATA  EOT  /-3. 23, -6. 83, -11 .17,-13.57,-14.33.-12.63,-4.2, 

SBS 

215 

1  2.83,3.57,2.4S,1 .10,-1 .42,-3.62,-4.93,-6.25,-6.28,-0.25, 

SBS 

220 

2  10.02,16.35,16.38,14.3,11 .27,8.02,2.32,-3.23/ 

SBS 

225 

I F( IOAY . LT . 1 .OR . IDAY . GT .366)  GO  TO  900 

SBS 

230 

IF(TIt,tE.LT. 0.0, OR. TIME. GT. 24.0)  GO  TO  910 

SBS 

.235 

DO  10  1*1,25 

SBS 

240 

IF(NDAY(I) ,E9. IDAY)  GO  TO  30 

SBS 

245 

10 

I F(NOAY ( I ) , GT. IDAY )  GO  TO  20 

SBS 

250 

20 

1*1-1 

SBS 

255 

E0TIME.E0T(I)  +  (E0T(I  +  1)-£0T(I))*(IDAY-NDAY{I))/(N0AYU+1)-NDAY(I))SBS 

260 

DECANG.OEC ( 1 )  +  ( DEC ( 1+1  )-OEC ( I ))»(! DAY-N.DAY (I)) / (NDAY ( 1+1  J-NDAY ( I ) ) SBS 

265 

GO  ro  40 

SBS 

270 

30 

EQTIME.EOT(I) 

SBS 

275 

OECANG-OEC(I) 

SBS 

280 

40 

THETAS. DLCANG 

SBS 

283 

EOT  I ME* EOT  I ME/60.0 

SBS 

290 

PHIS*15.0*(TIME+E0TIME 1-180.0 

SBS 

295 

IF(PHiS.LT.O.O)  PHIS.PHIS+360.0 

SBS 

300 

RETURN 

SBS 

305 

900 

WRI TE( IPR, 901 )  IDAY 

SBS 

310 

901 

FORMAT ('  FROM  SUBSOL  -  IOAY  OUT  OF  RANGE,  IDAY* 1 , 10) 

SBS 

315 

STOP 

SBS 

320 

910 

WR1TE( IPR, 902)  TIME 

SBS 

325 

002 

FORMAT*'  from  SUBSOL  -  TIME  OUT  OF  RANGE,  TIME*' ,612,8) 

SBS 

330 

STOP 

SBS 

335 

END 

SBS 

340 

84 
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SUBROUTINE  PHASEFfV, ALT .ANGLE, RH, PHFA) 

RETURNS  THE  AEROSOL  PHASE  FUNCTION  FROM  THE  STORED  DATA  BASE 


THE  TRUTH  TABLE  MNUM(27,26)  STORED  IN  COMMON/MNMPHS/ 

IN  SUBROUTINE  PHSDTA  IS  OUERIEO  TO  DETERMINE  THE  PROPER  PHASE 
FUNCTION  NEEDED. 

THE  2V  POSITIONS  REPRESENT  THE  27  SPECIFIC  FREQUENCIES  SHOWN  IN 
DATA  STATEMENT  WA^E  .2-10  MICRONS. 

THE  NUMBERS  STOREO  IN  THESE  27  POSITIONS  REPRESENT  THE  CORRECT 
PHASE  FUNCTIONS  CHOSEN  FROM  THE  DATA  STATEMENT  PHSFNC'S  1-70 
POSSIBLE  CHOICES. 

THE  26  DATA  STATEMENTS  EACH  HAVING  27  FREQUENCIES  REPRESENT  THE 
FOLLOWING  26  MOOELS; 

2=RURAL  70XRH 
5-MAR1TIME  OXRH 


1. RURAL  OXRH 
4-RURAL  99XRH 
7-MAR1TIME  80XRH 
10-URBAN  70XRH 
I3aOCEANIC  OXRH 
16-OCEANIC  99XRH 
19.TROPOSPH  8 OXRH 
22-AGED  VOLCANIC 
25-AOVECTIVE  FOG 


S-MARITIME  99XRH 
11 -URBAN  80XRH 
14-OCEAN1C  70XRH 
1 7-TROPOSPH  OXRH 
20-TR0P0SPH  99XRH 
23*FRESH  VOLCANIC 
26’METEORIC  OUST 


3-RURAL  SOXRH 

6-MARITIME  70XRH 
9-UR8AN  OXRH 

1 2-URBAN  S9XRH 

15-0CEANIC  80XRH 

18-TH0P0SPH  70XRH 
21 -STRATOSPHERIC 
24-RADIATION  FOG 


IN  THE  PRESENT  VERSION  THE  4  OCEANIC  MOOELS  13-16 
ARE  NOT  UTILIZED. 

COMMON  /IFU/  IRQ,  IPR*  IPU.NPR 

COMMON  /CAR01 /  MODEL , I  TYPE , I EMSCT ,M1 , M2 . M3 , IM, NOPRNT , T BOUND, SALB 
COMMON  /CAR02/  IHAZE, ISEASN, IVULCN , ICSTL , ICIR, IVSA.VIS.WSS. WHM, 

1  RAINRT 

COMMON/MNMPHS/  MNUM(27 ,26)  .PHSFNCO4.70) 

DIMENSION  RHPTS(4) ,WAVE(27),ANG(34) 

DATA  ANO  /0. .2., 4. ,8. ,8., 10. ,12. ,16. .20. ,24. ,2B. ,32. ,36. ,40. 

1 .50. . 80. .70. .80. .90. . 100. . 110. . 120. . 125. . 130. . 135. .140. .145. 

2.150. . 155. .160. . 165. . 170. . 175. .180./ 

DATA  WAVE  /, 2, .3, .8S, .6943,1 .08,1 .536.2.0,2.6,2.7,3. ,3.2,3,39 

1.5..  6.. 7. 2. 7. 9.8. 7. 9. 2. 10. 0.10. 59. 12. 5. 15. 0.17.2. 18. 9.21. 3. 30. 
2,40.0/ 

DATA  RHPTS  /0. 0,70. 0,80, 0,99.0/ 

c 

PHFA-0.0 

ALAM-1.0E4/V 

IF(ANGLE. LT. 0.0. OR. ANGLE. OT. 180.0)  GO  TO  BOO 
IF(ALAM.LT,WAVE(1).0R.AUM.GT.WAVE(27))  GO  TO  910 
C  DETERMINE  THE  AEROSOL  MODEL  NUMBER 

IF<ALT.QT.2.0)  GO  TO  95 
IF( IHAZE. EQ, 7)  WRITE( IPR, 999) 

999  FORMAT ( '  IHAZE. 7  INACTIVE,  CONTINUING  WITH  PHFA-0.0' ) 

IF( IHAZE. EQ.O. OR. IHAZE. EQ. 7)  GO  TO  400 
IF( IHAZE. GE. 8)  00  TO  90 

C  0-2KM  BOUNDARY  LAYER  MOOELS,  RH  DEPENDENT 

DO  50  11*1 ,4 
1*11 

IF(RHPTS( I ) . EQ.RH)  GO  TO  70 
IF(RHPTSd).GT.RH)  00  TO  60 
60  CONTINUE 


PHS 

100 

PHS 

105 

PHS 

110 

PHS 

115 

PHS 

120 

PHS 

125 

PHS 

130 

PHS 

135 

PHS 

140 

PHS 

145 

PHS 

150 

PHS 

159 

PHS 

160 

PHS 

165 

PHS 

170 

PHS 

175 

PHS 

180 

PHS 

185 

PHS 

190 

PHS 

195 

PHS 

200 

PHS 

205 

PHS 

210 

PHS 

215 

PHS 

220 

PHS 

225 

PHS 

230 

PHS 

235 

PHS 

240 

PHS 

245 

PHS 

250 

PHS 

255 

PHS 

260 

PHS 

265 

PHS 

270 

PHS 

275 

PHS 

2B0 

PHS 

2B5 

PHS 

290 

PHS 

295 

PHS 

300 

PHS 

305 

PHS 

310 

PHS 

315 

PHS 

320 

PHS 

329 

PHS 

330 

PHS 

335 

PHS 

340 

PHS 

345 

PHS 

360 

PHS 

355 

PHS 

360 

PHS 

365 

PHS 

370 

PHS 

375 

PHS 

380 

PHS 

389 

PHS 

380 

85 


00 

XRHLO'1^1 

PHS 

39S 

IRHHI'I 

PHS 

400 

GO  TO  80 

PHS 

405 

70 

IRHLO'I 

PHS 

410 

XRHHX.I 

PHS 

415 

80 

continue 

PHS 

420 

C 

RURAL  MODEL 

PHS 

425 

IF( IHAZE.EQ.1 .OR. IHAZE. EQ.2)  NNO'O 

PHS 

430 

C 

maritime  model 

PHS 

435 

IF(IHAZE.E0.3.0R.XHAZE.EQ.4)  NNO'4 

PHS 

440 

c 

URBAN  MODEL 

PHS 

445 

IF(IHAZE.EQ.5)  NNO'8 

PHS 

450 

c 

TROPOSPHERIC  MODEL 

PHS 

455 

IF(IHAZE.E0.6)  NN0.10 

PHS 

460 

NN'NNO+IRHLO 

PHS 

465 

GO  TO  130 

PHS 

470 

c 

0-2KM  FOG  MODELS,  NO  RH  DEPENDENCE 

PHS 

475 

go 

IF( IHAZE. EQ. 8)  NN«24 

PtiS 

480 

If' IHAZE. EO. 9)  NN*2d 

PHS 

485 

GO  TO  130 

PHS 

490 

os 

1F( ALT ,GT , 10. )  GO  TO  110 

PHS 

495 

c 

2-1 OKM  TROPOSPHERIC  MODEL 

PHS 

POO 

NN'18 

PHS 

5C5 

GO  TO  130 

PHS 

510 

110 

IF(ALT.GT.30. )  GO  TO  120 

PHS 

515 

c 

10-30KM  STRATOSPHERIC  MODELS 

PHS 

520 

c 

BACKGROUND  MODEL 

PHS 

525 

!F( IVULCN. EO.O.OR . IVULCN.EQ. 1 )  NN'21 

PHS 

530 

c 

AGED  VOLCANIC  MODEL 

PHS 

535 

!F( I VULCN. EO. 2.0R. IVULCN.EQ. 4)  NN>22 

PHS 

540 

c 

FRESH  VOLCANIC 

PHS 

545 

IF( IVULCN.EQ. 3 .OR, IVULCN.E0.5)  NN«23 

PHS 

550 

GO  TO  130 

PHS 

555 

c 

30-1 OOKM  METEORIC  MODEL 

PHS 

560 

120 

NN'26 

PHS 

565 

130 

IRH.O 

PHS 

570 

C 

PHS 

575 

C 

determine  the  bounding  angle  indices 

PHS 

580 

140 

DO  210  11-1 ,34 

PHS 

985 

i'll 

PHS 

5S0 

IF{ANG(I).EQ. ANGLE)  GO  TO  230 

PHS 

595 

IF(ANG(I).GT. ANGLE)  GO  TO  220 

PHS 

600 

210 

CONTINUE 

PHS 

605 

220 

XANG1 'I-t 

PHS 

610 

IANG2'I 

PHS 

615 

GO  TO  240 

PHS 

620 

230 

XANGI'I 

PHS 

825 

1ANG2' I 

PHS 

630 

240 

CONTINUE 

PHS 

635 

C 

PHS 

640 

C 

DETERMINE  THE  BOUNDING  WAVELENGTH  INOiCES 

PHS 

645 

DO  250  It. 1,27 

PHS 

650 

I'll 

PN5 

ess 

I F(WAVE( X ) . EQ.ALAM)  GO  TO  270 

PHS 

660 

I F(WAVE( 1 ) ,QT, ALAM)  GO  TO  260 

PHS 

605 

250 

CONTINUE 

PHS 

670 

260 

IWAVI'I-1 

PHS 

675 

IWAV2'! 

PHS 

680 

GO  TO  230 

PHS 

085 

86 


270  I WAV 1.1 

IWAV2.I 

260  CONTINUE 
C 

c  function  pf  chooses  desired  phase  function  from  look  up  table 

C  ItNUM(IWAV.NN)  WHERE  IWAV  is  FREQ.  AND  NN  IS  NODE l  NO. 

c 

C  WAVELENGTH  INTERPOLATION  ONLY  USES  PF11  AND  PF21 

C  ANGLE  INTERPOLATION  ONLY  USES  PF1 1  AND  PF12 

C  WAVELENGTH  AND  ANGLE  INTERPOLATION  USES  PF11.PF21  AND  PF12.PF22. 

c 

PF1 1«PF(NN , IWAV1 t IANG1 ) 

PF2l*PF(NN, IWAV2 , I ANGl ) 

PF12«PF(NN,IWAV1.IANG2) 

PF22«PF(NN , IWAV2. IANG2 ) 

c  interpolate  in  wavelength  then  angle 

IF(IWAV1.E0.IWAV2)  GO  TO  310 
IF(IANG1 .E0.IANG2)  00  TO  290 

c  both  interpolations  are  necessary 

call  interp(2.alan,waVE(iwavi),wave(iwav2).yanoi, 

1PF11.PF21) 

CALI.  I NTER  P  ( 2 ,  A  LAM,  WAVE  ( IWAV  1 ) ,  WAVE  { IWAV2 ) ,  YANG2 , 

1PF12.PF22) 

CALL  INTERP(2, ANGLE, ANG( IANG1 ) tANGt IANG2) , V.YANG1 ,YANG2) 

GO  TO  330 

C  ONLY  WAVELENGTH  INTERPOLATION  IS  NECESSARY 

290  CALL  ZNT£RP(2, ALAN, WAVE (IWAV 1 ) ,WAV£( IWAV2) ,Y,PF1 1 , 

1PF21 ) 

GO  TO  330 

310  I F( I ANGl . EQ. 1ANG2)  GO  TO  320 

C  ONLY  ANGLE  INTERPOLATION  IS  NECESSARY 

CALL  1NTERP(2, ANGLE, ANG( I ANGl ) ,ANG( IANG2) .Y.PF11, 

1PF12) 

GO  TO  330 

C  NO  INTERPOLATION  IS  NECESSARY 

320  Y"PF(NN, IWAV1 , IANG1 } 

330  CONTINUE 
PHFA.Y 

c 

C  HUMIDITY  DEPENDENCE 

IF( ALT .GT . 2.0. OR •NN.QE. 17.0R. IRHLO.EO. IRHHI )  GO  TO  400 

IF(IRH.EO.I)  GO  TO  340 

NN.NN0+1RHHI 

phfai.phfa 

IRH.1 
GO  TO  280 
340  CONTINUE 

PHFA2-PMFA 

CALL  1NTERP(1.RH,RHPTS(IRHL0),RMPTS(IRHMI). 

CPHFA.PHFAl ,PHFA2) 

400  CONTINUE 

RETURN 

900  WRITE! IPR, 901)  ANGLE 

901  FORMAT ( 'Of'ROH  PHASEF-  SCATTERING  ANGLE  IS  OUT  OF  RANQE,  1 
1  .'ANGLE  .  ' ■ E t a • 5 ) 

STOP 

Qtn  UR1TP (  IPR . 91 \ )  ALAM 

911  FORMAT( 'OFROM  PHASEF-  ALAN  IS  OUT  OF  RANGE,  ALAN  ■  ',E13.B) 

STOP 

END 


PHS 

690 

PHS 

695 

PHS 

700 

PHS 

705 

PHS 

710 

PHS 

715 

PHS 

720 

PHS 

725 

PHS 

730 

PHS 

735 

PHS 

740 

PHS 

745 

PHS 

750 

PHS 

755 

PHS 

760 

PHS 

765 

PHS 

770 

PHS 

775 

PHS 

780 

PHS 

785 

PHS 

790 

PHS 

795 

PHS 

800 

PHS 

80S 

PHS 

810 

PHS 

815 

PHS 

820 

PHS 

825 

PHS 

830 

PHS 

835 

PHS 

640 

PHS 

645 

PHS 

850 

PHS 

655 

PHS 

660 

PHS 

865 

PHS 

670 

PHS 

075 

PHS 

680 

PHS 

885 

PHS 

890 

Pha 

895 

PHS 

900 

PHS 

905 

PHS 

910 

PHS 

915 

PHS 

920 

PHS 

925 

PHS 

930 

PHS 

935 

PHS 

940 

PHS 

945 

PHS 

950 

PHS 

955 

PHS 

960 

PHS 

90S 

PHS 

970 

PHS 

975 

PHS 

980 

PHS 

965 

/ 
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FUNCTION  PF(NN,I,J) 

PF 

100 

CALL  THE  APPROPRIATE  PHASE  FUNCTION 

PF 

105 

COMMON/MNMPHS/  MNUM(27,26) ,PHSFNC(34,70) 

PF 

110 

M-MNUM(I.NN) 

PF 

115 

PF-PHSFNC(J.M) 

PF 

120 

RETURN 

PF 

125 

END 

PF 

130 

SUBROUTINE  INTERP(1NTYPE,X,X1 .X2.F.F1 ,F2)  INT  100 

C  SUBROUTINE  INTERP  INTERPOLATES  TO  DETERMINE  THE  VALUE  OP  F  INT  105 

C  AT  X.  GIVEN  FI  AT  XI  AND  F2  AT  X2.  INT  110 

C  INTYPE-1  FOR  LINEAR  INTERPOLATION  INT  115 

C  INTYPE-2  FOR  LOGARITHMIC  INTERPOLATION  INT  120 

ITYPE-INTYPE  INT  125 

IF(FI.LE.O.O.OR.FE.LE.O.O)  I TYPE- t  INT  130 

IF( ITYPE.EQ-2)  GO  TO  100  INT  135 

C  LINEAR  INTERPOLATION  INT  MO 

F.FM(X-X1)*(F2-F1)/<X2-X1)  INT  MS 

RETURN  INT  150 

100  CONTINUE  INT  155 

AI-ALOG(FI)  INT  160 

A2-AL0G(F2)  INT  165 

A-AM(X-XI)*(A2-A1)/<X2-X1)  INT  1T0 

F-EXP(A)  INT  ITS 

RETURN  INT  180 

END  INT  IBS 


FUNCTION  TNRAIN(RR) 

TNR 

100 

CCC 

TNR 

105 

COMMON  /CNSTNS/  Pi ,CA, DEG-GCAIR, BIGNUM.BIGEXP 

TNR 

110 

COMMON  /CARD3/  HI ,H2, ANGLE .RANGE .BETA, RE ,  LEN 

YNR 

115 

CCC 

CALCULATES  TRANSMISSION  0U5  TO  RAIN  AS  A  FUNCTION  OF 

TNR 

120 

CCC 

RR-RAIN  PATE  IN  MM/HR 

TNR 

125 

CCC 

RANGE-SLANT  RANGE  KM 

TNR 

130 

CCC 

1NR 

135 

CCC 

ASSUMES  A  MARSHALL-PALMER  RAIN  DROP  SIZE  DISTRIBUTION 

TNR 

MO 

CCC 

N(D)-NIERO»EXP(-A«OJ 

TNR 

MS 

CCC 

NZER0-B.F.3  (MM-1)  <M-J) 

TNR 

150 

CCC 

A-41.«RR«(-0.21) 

TNR 

155 

CCC 

0-DROP  DIAMETER  (CM) 

TNR 

ISO 

CCC 

TNR 

165 

REAL  N2EN0 

TNR 

170 

DATA  NIERO  /ROOO./ 

TNR 

178 

CCC 

TNR 

160 

A- At ./RR-*0,21 

TNR 

185 

CCC 

TNR 

ISO 

IF(RR.LE.0)TNRAIN>1. 

TNR 

105 

I F ( H  a . LE , 0 ) RETURN 

TNR 

200 

CCC 

TNR 

20S 

TNRAIN-EXP(“PI-NIERO-RANOE/A--3) 

TNR 

210 

RETURN 

TNR 

215 

END 

TNR 

220 

aa 


SUBROUTINE  C1RRUS(CTHIK,CALT , ISEED.CPROB) 

CIR 

100 

e** 

****4#***««»***tt 

>•* 

CIR 

103 

c* 

ROUTINE  TO  OENERi 

ATE  ALTITUDE  PROFILES  OF  CIRRUS  DENSITY 

#* 

CIR 

110 

c* 

PROGRAMMED  BY 

4.U.  POST 

*« 

CIR 

115 

c« 

R.A.  RICHTER  NOAA/WPL 

M 

CIR 

130 

c* 

BOULDER,  COLORADO 

CIR 

133 

c* 

01/37/1981 

•  • 

CIR 

130 

c* 

•+ 

CIR 

135 

c« 

INPUTS! 

•  * 

CIR 

140 

c* 

CHTIK 

-  CIRRUS  THICKNESS  (KM) 

•  * 

CIR 

145 

c* 

0  «  USE  THICKNESS  STATISTICS 

•• 

CIR 

150 

c* 

.NE.  0  •  USER  DEFINES  THICKNESS 

«* 

CIR 

155 

c* 

•« 

CIR 

ISO 

c« 

CALT 

-  CIRRUS  BASE  ALTITUDE  (KM) 

«• 

CIR 

105 

c« 

0  •  USE  CALCULATED  VALUE 

•* 

CIR 

170 

c* 

.HE.  0  •  USER  DEFINES  BASE  ALTITUDE 

«* 

CIR 

175 

c* 

«« 

CIR 

180 

o 

ICIR 

-  cirrus  presence  flag 

«• 

CIR 

IBS 

c* 

0  ■  NO  CIRRUS 

M 

CIR 

190 

c* 

.NE.  0  •  USE  CIRRUS  PROFILE 

*• 

CIR 

195 

c* 

»• 

CIR 

300 

c* 

MODEL 

-  ATMOSPHERIC  MODEL 

•  • 

CIR 

305 

o 

1-5  AS  IN  MAIN  PROGRAM 

•  » 

CIR 

310 

c* 

MODEL  •  0,6,7  NOT  USED  SET  TO  3 

•  • 

CIR 

315 

c* 

•  « 

CIR 

330 

c* 

ISEEO 

-  RANDOM  NUMBER  INITIALIZATION  FLAG. 

•  * 

CIR 

335 

c* 

0  •  USE  DEFAULT  MEAN  VALUES  FOR  CIRRUS 

«• 

CIR 

330 

c* 

.NE.  0  >  INITIAL  VALUE  OF  SEED  FOR  RANF 

M 

CIR 

335 

c* 

FUNCTION.  CHANGE  SEED  VALUE  EACH  RUN  FOR 

•• 

CIR 

340 

c* 

different  RANDOM  NUMBER  SEOUENCES.  THIS 

•• 

CIR 

345 

c* 

PROVIDES  FOR  STATISTICAL  DETERMINATION 

*« 

CIR 

330 

c« 

OF  CIRRUS  BASE  ALTITUDE  AND  THICK4E5S. 

*« 

CIR 

355 

c* 

CIR 

360 

c» 

OUTPUTS! 

•« 

CIR 

ass 

c* 

CTHIK 

-  CIRRUS  THICKNESS  (KM) 

*• 

CIR 

370 

c» 

CALT 

-  CIRRUS  BASE  ALTITUDE  (KM) 

•• 

CIR 

375 

c« 

OENSTY<ie 

.1)  -  ARRAY,  ALTITUDE  PROFILE  OF  CIRRUS  DENSITY** 

CIR 

380 

c* 

CPR08 

-  CIRRUS  PROBABILITY 

It 

CIR 

385 

c* 

•« 

CIR 

390 

C«» 

»*♦ 

CIR 

395 

c 

CIR 

300 

COMMON  /QAAOI/  MODEL ,  1TYP6 , IEMSCT ,M1  ,M3,M3 ,  IM,NQPRNT , T BOUND, SALB 

CIR 

305 

COMMON  /CAHOa/  1HAK,  IS8ASN,  IVULCN,  ICSU.  ICIR.  IVSA, VIS, MSS.MNH, 

CIR 

310 

1  RAJNRT 

CIR 

313 

COMMON  RECHUM! 34 ) .H5TQR(34) , ICM{4) , VM( 16) ,TX(16),M(1t) 

CIR 

330 

COMMON  /QNTRL/ 

KMAX.M, I KMAX.NL.ML. IKLO. ISSOEO 

CIR 

336 

COMMON  /CARO*/  Vt,V3,OV 

CIR 

330 

COMMON  /MODEL/ 

Z  (34),PM(34) , TM(34) , RFNOX ( 34 ) ,OEHSTV( 10,34) 

CIR 

333 

DIMENSION  CBASE(5,J )  ,TSTAT(1 1 )  ,PTA#(8)  .CAMtANtS) 

CIR 

340 

DIMENSION  CBASEl (5) ,C0ASE3(5) 

CIR 

343 

eoul VALENCE  (CftASEl ( 1 ) .CBASE 1 1 , 11 ) , (CBASE3! t ), COASK  1 .3)) 

CIR 

350 

c 

CIR 

353 

DATA  CANE AN 

/  11.0,  to. 0.  6,0.  7.0.  B.O  / 

CIR 

380 

OATA  P7AB 

/  0.6,  0.4,  0.3.  0.48.  0.4/ 

CIR 

385 

DATA  CBASE! 

/  7.5,  7,3,  4.8,  4.5,  3.8  / 

CIR 

370 

OATA  C0ASE3 

/16, 5, 13. 3, 14.0,  9.8,10.0  / 

CIR 

375 

OATA  TS1AT 

/  0.0, .391 , .300, .633, .784, .037, .BS3, 

CIR 

380 

♦  0.930,  0.900, 

0.982,  1,00  / 

CIR 

381 

oftno  nnnn  n  o no  ooo  onnnoo  00000—  o  00 


SET  CIRRUS  PROBABILITY  AND  PROFILE  TO  ALL  ZEROES 

CPROB  *0.0 
MOL  *  MODEL 

00  10  I»1 ,34 
9  QENSTY(10, I)-0. 

CHECK  IF  USER  WANTS  TO  USE  A  THICKNESS  VALUE  HE  PROVIDES,  CALCULATE 
A  STATISTICAL  THICKNESS,  OR  USE  A  MEAN  THICKNESS  (ISEEO  ■  0). 
DEFAULTED  MEAN  CIRRUS  THICKNESS  IS  1.0  KM. 

IF  (  CTHIK  .GT.  0.0  )  GO  TO  25 
IF  (  ISEEO  .NE.  0  }  GO  TO  15 
CTHIK  »  1.0 
GO  TO  SS 

CALCULATE  CLOUD  THICKNESS  USING  LOWTRAN  CIRRUS  THICKNESS  STATISTICS 
NOTE  -  THIS  ROUTINE  USES  A  UNIFORM  RANDOM  NUMBER  GENERATOR 
FUNCTION  (RANK}  WHICH  RETURNS  A  NUMBER  BETWEEN  0  AND  1. 

THIS  FEATURE  IS  MACHINE  DEPENDENT  1 i 

15  CALL  RANSET(ISEEO) 

URN  *  RANOOM(IOUM) 

00  20  I  •  1 ,  10 

IF  (URN  .GE.  TSTAT(I)  . AND.  URN  .LT.  TSTAT(lWt))  CTHIK  a  1-1 
20  CONTINUE 

CTHIK  »  CTHIK  /  2.0  ♦  RANOOM(IOUM)  /  2.0 

0ENC1R  IS  CIRRUS  DENSITY  IN  KM-1 

25  OENCIR  ■  O.OT  •  CTHIK 

BASE  HEIGHT  CALCULATIONS 

IF  (  MODEL  .LT.  1  .OR.  MODEL  .GT.  5  )  MOL  •  2 
CPROQ  «  100.0  •  »TAB(MOU 

UMAX  •  C0ASE(M0l.2I  -  CTHIK 
3RAN0E  »  UMAX  -  CSASetMOL.il 
IF  (  CALT  .GT.  0.0  )  GO  TO  2T 
IF  (  ISEEO  . N£.  0  I  GO  TO  20 
CALT  »  CAMEANIMOi) 

CO  TO  ill 

25  CALT  »  BPANG6  •  RANDOM ( 10UM)*  CBASItMDl.l) 

PUT  CIRRUS  DENSITY  IN  CORRECT  ALTITUDE  BINS,  IF  MODEL  •  T. 
INTERPOLATE  SHttG.I)  FOR  NON-ST ANOARO  ALTITUDE  «0U NpARitS. 

27  IF(UOOEl  ,EQ.  7)  CO  TO  BO 
JV1«|i»T(CAlT  ) 
lV2»IN1(CALT*CTHiK  ) 

00  30  I  *  2.  14 

IF(t  -G£,  IV)  .AND.  I  . Lt .  tV2)  OENSTVtlS.Ul)  .  DtKCIR 
SO  CONTINUE 

ADJUST  FIRST  AND  LAS)  CIRRUS  LEVEL  IF  CLOUD  0CLS  NOT  ENTIRELY 
FILL  EACH  level. 


CIR 

393 

CIR 

400 

CIR 

405 

CIR 

410 

CIR 

415 

CIR 

420 

CIR 

425 

CIR 

430 

CIR 

435 

CIR 

440 

CIR 

445 

CIR 

450 

CIR 

455 

CIR 

460 

CIR 

465 

CIR 

470 

CIR 

475 

CIR 

4B0 

CIR 

405 

cm 

490 

CIR 

495 

cm 

500 

C1R 

505 

cm 

510 

cm 

515 

cm 

S20 

cm 

525 

cm 

330 

cm 

335 

cm 

540 

cm 

343 

cm 

330 

cm 

835 

cm 

360 

cm 

363 

CIR 

370 

cm 

373 

cm 

380 

cm 

583 

cm 

390 

cm 

SSS 

cm 

GOO 

cm 

603 

cm 

610 

cm 

618 

cm 

630 

cm 

623 

cm 

630 

cm 

633 

cm 

640 

cm 

643 

cm 

850 

cm 

633 

cm 

600 

cm 

663 

cm 

670 

cm 

t?S 

CIR 

680 

CIR 

6*6 

o  yy 


IH0T1  •  INT(  CALT  ) 

1HQT2  »  INT(  CALT  ♦  CTHIK) 

I F (  IHQT1  .  NE  .  IHQT2  )  GO  TO  39 
DENST¥(16,1HGT1+1 )  *  DEN$TY(  tS. IHGT1+1 )*CTHIK 
RETURN 

35  Perl  ■  1.0  -  (  CALT  -  IHGT1  ) 

D£N5TY(16,IHGT1+t )  *  0ENSTY(  16i  IHGT1P1 )  *  PCT1 

PCT2  ■  (  CALT  ♦  CTHIK)  -  IKGT2 

0EHST¥( 1 6. IHOT2+1 )  •  0ENSTY1 16, INGT2+1 )  «  PCT2 

RETURN 

INTERPOLATE  DENSTYl  16,1)  FOB  USER  SUPPLIED  ALTITUDE  BOUNDARIES 

60  TOP  •  CALT  ♦  CTHIK 
BOTTOM  •  CALT 
IF  (TOP  AT.  Z(O)  RETURN 
IF  (BOTTOM  .GT.  Z(BL))  RETURN 
IML  ■  ML  -  1 
DO  TO  1-1.1ML 
ZHIN  •  2(1) 

ZMAX  ■  Z(I+1) 

IF1BQTT0M.LE.ZMIN  .ANO.  TOP. QE. ZMAX)  0ENSTY(16,l)  •  0ENC1R 
1P(BOTTOM.OE.ZMIN  .AND.  TOP. LT . ZMAX) 

+  OENSTYJ  16.1)  ■  DENC1R  •  CTHIK/OENO** 

IF1BOTTOM.QE.ZM1N  .AND.  TOP.GE-ZMAX  .ANO.  BOTTOM. LT .ZMAX) 

*  06NSTY{ 16.1)  •  0ENC1R  *  (ZMAX  -  BOTTOM)/  OENOM 
1F180TT0M.LT.ZMIN  .ANO.  TOP. LE. ZMAX  .ANQ.TOP.QT.ZMIN) 

♦  OENSTY(IOA)  »  OEWCIR  *  (TOP  -  ZM1N)  /  OENOM 
TO  CONTINUE 

RETURN 

EMO 


C1R  690 
CIR  69S 
CIR  TOO 
CIR  T05 
CIR  710 
CIR  719 
CIR  720 
CIR  729 
CIR  730 
CIR  735 
CIR  740 
CIR  745 
CIR  750 
CIR  755 
CIR  760 
CIR  765 
CIR  770 
CIR  775 
CIR  760 
CIR  765 
CIR  700 
CIR  795 
CIR  600 
CIR  605 
CIR  810 
CIR  615 
CIR  820 
CIR  825 
CIR  630 
CIR  835 
CIR  840 
CIR  845 


FUNCTION  RAXOGUItOUM) 

CM  RANF  is  A  UNIFORM  RANDOM  NiMBER  GtRCRATOR  MNlCH  RETURNS  A 
CM  number  8ETMEEN  0  ANO  1.0.  RANF  IS  MACHINE  DEPENDENT. 
RANOOM.RANFO 
RETURN 
END 
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SUBROUTINE  MARINE(VIS,MOOEL,WS,WH,JCSTL,BEXT.aABS,NL) 


THIS  SUBROUTINE  DETERMINES  AEROSOL  EXT  4  ABS  COEFFICIENTS 
FOR  THE  NAVY  MARITIME  MODEL 
COOED  BY  STU  OATHMAN  -  NR l 

INPUTS- 

WSS  >  CURRENT  MIND  SPEED  (M/S) 

WHH  «  34  HOUR  AVERAGE  WIND  SPEED  (M/S) 

RHH  •  RELATIVE  HUMIDITY  (PERCENTAGE) 

VIS  >  METEOROLOGICAL  RANGE  (KM) 

ICTL  •  AIR  MASS  CHARACTER  1  •  OPEN  OCEAN 

10  •  STRONG  CONTINENTAL  INFLUENCE 
MODEL  •  MODEL  ATMOSPHERE 

OUTPOTS- 

BEXT  ■  EXTINCTION  COEFFICIENT  (KM-t) 

BABS  •  ABSORPTION  COEFFICIENT  (KM-t) 

COMMON  /MART/  RHH 
COMMON  /IF1L/1RD, IPR, IPU.NPR 
COMMON  /CNSTNS/  PI ,CA  <  DEG. GCAIR , 01GNUM, 8IOEXP 
COMMON/ A/T 10EXT( 40 . 4 ) , T20EXT ( 40 , 4) . T30EXT ( 40 , 4 ) . 
t T1QASS(40, 4) ■ T20ABS(40 ,4) , T30ABS(40 ,4) , ALAM(40) . ASEL(4) 
C0MM0N/AER/A1 ,  A3,  A3 

DIMENSION  WSP0(8),  9E*T(4,40),  BABS(4,40) 

DIMENSION  RHO(S) 

DATA  WSPO/6.9,  4,1,  4.1.  10.30,  6.80.  13.35,  7.3,  6.0/ 

DATA  RHO/BO.,  75.63.  76.3.  77.13.  73.24,  80.53,  45.68,  80./ 
PISC  ■  PI/1000.0 
WRITE! IPR, 390) 

CHECK  LIMITS  OF  MODEL  VALIDITY 

lF(RMH.GT.O. )  GO  TO  10 
RH.GKQ(MOOEL*1) 

IF(WS.GT.JO.O)  WS»30. 

IF(WH,GT .30.0)  WM  ■  20. 

IF ( RH.GT *98.0)  RH  *  98. 

IF(  RH. LT ,50.0. ANO.RH.GE .0.0)  RH  •  50. 

IF( ICSIL . LT . 1 .0*. ICSTL .GT . *0)  ICJTL  •  3 

FIND  SUE  DISTRIBUTION  PARAMETERS  FROM  METEOROLOGY  INPUT 

IFtKM.LR.O.)  WRITE (IPR, 420) 

IF|WM  ,ie.  0.0)  WM  •  wSPOtWOOEL  *  1) 

IF(*S.L£.0.)  WRtredPR.DSO) 

tF(*$.LC,0.9)WS>WH 

WR{I£| IPR, 9' 0)»S. WM.RH. tCSfL 

F  IS  A  RELATIVE  Humaltv  OEPINOENT  growth  CORRECTION 
to  THE  ATTENUATION  COEFFICIENT. 

F»t  1 3  > “SH/ 1  CO . ) / 1 6 . *  1 1 .»Rh/100. )))**«. 33333 

A<»2000.0*teSFL*ICStL 

A3  «  AMAAi  (S.8SS*{ WH“3 . 2} ,  0.6) 

A3  *  AMATI (0.0I52?»(W6“3.2) .  1.14E-6) 


MAR 

100 

MAR 

105 

MAR 

110 

MAR 

115 

MAR 

130 

MAR 

135 

MAR 

130 

MAR 

135 

MAR 

140 

MAR 

145 

MAR 

150 

MAR 

155 

MAR 

160 

MAR 

165 

MAR 

170 

MAR 

175 

MAR 

180 

MAR 

IBS 

MAR 

190 

mar 

195 

MAR 

300 

MAR 

305 

MAR 

310 

MAR 

215 

MAR 

320 

MAR 

335 

MAR 

230 

MAR 

235 

MAR 

345 

MAR 

345 

MAR 

350 

MAR 

355 

MAR 

260 

MAR 

265 

MAR 

270 

MAR 

275 

MAR 

280 

MAR 

335 

MAR 

390 

MAA 

395 

MAR 

300 

MAR 

305 

MAR 

310 

MAR 

315 

MAR 

330 

MAR 

325 

MAR 

330 

MAO 

339 

MAR 

340 

MAR 

345 

MAA 

350 

MAH 

355 

MAR 

360 

MAR 

365 

MAR 

370 

MAR 

375 

MAR 

390 

MAR 

385 

MAR 

230 

02 


C  FIND  EXTINCTION  AT  0.55  HICRONS  AND  NORMALIZE  TO  1. 

C 

C  INTERPOLATE  FOR  RELATIVE  HUMIDITY 
C 

00  40  U*2,4 

IF(RH.LE.AREL(d))  GO  TO  42 
40  CONTINUE 

42  DELRH*AREL(d)-AREL(J-1 ) 

OELRHV.RH-AREL(J-l) 

RAT10*DELRHV/0ELRH 

OEUTigEXT(4,J-1)  +  (T10EXT(4,u)-TIOEXT(4,j-t))«RATtO 
<3E2*T2Q£XT(4,U-1>  +  {T20EXT<4,J)-T20F.XT(4,J-1))*RATI0 
0E3*T3SEXT(4.J-1)+(T30EXT<4.U)-T30EXTt4,J-1))»RATlO 
TOTAL  •  A1*10.*»3E1  ♦  A2M0.*«QE2  ♦  A3*10.**iJE3 
EXT5S*PISC*TQTAL/F 
C 

C  IF  METEQROLOLICAL  RANGE  NOT  SPECIFIED, FIND  FROM  METEOR  DATA 
C 

IF(VIS-LE.O.)  VIS*3.9' 2/(EXT55vO.Ot 159) 
C«(1./EXTS5)»(PISC/F) 

A1.C*A1 

A2*C*A2 

A3*C*A3 

C 

C  CALCULATE  NORMALIZED  ATTENUATION  COEFICIENTS 
C 

00  4S  1*1,40 

T1XV  •  TIOEXT(I.U-I)  *  (TtaeXT(I.U)  -  TtQEXTU ,d-1 ))»RATtO 

TRXV  •  T20EXTI 1 .0-1 )  *  (T20EXT{I,U)  -  TJj}EXT( t .0-1 ) J.RATIO 

T3XV  »  T3QEXT(J.J-1)  ♦  (T30EXT(J,U)  -  T3QfUT(  I . 0-1 ) )*ftAT 10 

TIAV  «  1I0ABSU.U-1)  ♦  (TlOABS(I.J)  ~  T(0ABS(!,J*1J>*RAU0 

T2AV  •  T2QA8S<l.d-1)  »  t T2QA8S( I ,U)  -  T2QA8SU  .0-1 )  )»«AT JO 

T3AV  .  TMABS(l.d-t)  *  nJOA0SU,V>  '  T39A$S(  l  .0-1 ) )  »fUT  IQ 

QEXf(NL.t) *A1*10**( TtXV)*A2*10** ( T2XV ) »A3*1Q«* t  T)XV) 

8 AB  S ( ML . 1 1 »  A I « 1 0*  * ( T 1 A V )* A3* 1 9»*  t T  2A V ) ♦ A3* 1 0*» ( T0AV) 

45  CONTINUE 

WRITE  UPR.9005  V|S 
RETURN 

•90  FORMAT rCAttfttNt  AEROSOL  MOOSl  USgO‘1 
MO  FOSu*T  I  *0'  i  TlO, '  Vi9  *  '.FIO.J,'  X.M‘1 
910  FORMAHTiO,  ‘WIND  SPi^O  *  ‘.FH.J.*  M/SEC*  . /.  TlO, 

1  'MINO  SPEED  (24  HR  AVERAGE)  .  >,F#.2,*  M/SEC*./. 

2  T10. ‘RELATIVE  HUMID) Tv  .  *.r«.a.‘  PERCENT*./, 

3  JlO, ' AIAMASS  CHARACTER  *’  .13) 

•SO  FORMATCO  «$  NOT  SPECIFIED,  a  DEFAULT  VALUE  IS  USED') 

•30  FORMAT! *0  AM  NOT  SPECIFIED,  A  DEFAULT  VALUE  IS  USED*) 

END 


MAR  395 
MAR  400 
MAR  405 
MAR  410 
MAR  415 
MAR  420 
MAR  425 
MAR  430 
MAR  435 
MAR  440 
MAR  445 
MAR  450 
MAR  455 
MAR  460 
MAR  465 
MAR  470 
MAR  475 
MAR  eso 
MAR  4&5 
MAR  490 
MAR  495 
MAR  500 
MAR  505 
MAR  510 
MAR  513 
MAR  520 
MAR  525 
MAR  530 
MAR  535 
MAR  540 
MAR  545 
MAR  550 
MAR  555 
MAR  360 
MAS  565 
MAR  570 
MAR  575 
MAR  580 
MAR  385 
MAR  5«0 
MAR  393 
MAR  603 
MAR  cos 
MAR  CIO 

ma*  bis 
mar 

mam  425 
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SUBROUTINE  LAYVSA ( K , TMP , OP . RH , AMAZE 

, VISl , IHA1 t ISEA1 . IVUL1) 

LVS 

too 

c 

this  subroutine  restructures  the  atmospheric  profile 

LVS 

105 

c 

TO  PROVICE  FINER  LAYERING  NEAR  THE 

GROUND  FOR  USE  WITH 

LVS 

110 

c 

THE  V.S.A.  OPTION  -  IT  RETURNS  PRESSURE, TEMPERATURE, 

LVS 

115 

c 

and  amounts  to  subroutine  NSMQL 

LVS 

120 

c 

codeing  before  100  CONTINUE  is  for 

STANDARD  MOOELS 

LVS 

125 

c 

LVS 

130 

c 

COOEING  after  100  MERGES  MODEL  7  WITH  V.S.A. 

LVS 

135 

c 

MODELiO  and  1VSA«1  not  allowed 

LVS 

145 

common  /CNTRL/  KMAX.M. IKMAX.nl, ML.IKL0.1SSGEQ 

LVS 

150 

COMMON  /MODEL/  Z(34) 

LVS 

•  151 

COMMON  /CARD1 /  MOO£L,ITYPE.IEMSCT,M1.M2.M3,1M,NOPRNT,TBOUNO.SAL» 

LVS 

155 

COMMON  /CAR 02/  IHAZE.ISEASN.IVULCN, 

1CSTL.ICIR.IVSA.VIS.WSS.WHH. 

LVS 

160 

1  RAINRT 

LVS 

165 

COMMON  /M0*TA/ZM(34),P(34.7),T{34,7),WH(3«,7).W0{34,T), 

LVS 

•  170 

X  HMIX(34) 

LVS 

178 

COMMON  /2VSALY/  ZVSAf 10) ,RHVSA( 10) . 

AHVSAI 10) , XHVSA(IO) 

LVS 

TOO 

C0MM0N/NSINP/AINP(7,24) 

LVS 

185 

COMMON  /IFU/IRO.  IPR,  IPU.NPR 

LVS 

ISO 

DIMENSION  TMPN{34) ,DPN(34),RHN(34). 

1HN(34),AHAN(34) 

LVS 

195 

DIMENSION  ZNEW124) 

LVS 

200 

OAT A  ZNEW/1 .,2. .3. ,4. ,5. ,6. ,7. ,9. ,8 

..10. .11. .12., 

LVS 

205 

C  14. . 18. .18. ,20- .22. .85., 30. ,35. >40 

.,30..7«,.5SS./ 

LVS 

210 

HMXV5A»2YSA(9) 

LV$ 

215 

IFLSOOEL.EO.O.OR.MOOEL-lO.fl  GO  TO 

100 

LVS 

220 

P(K,T)*0. 

LVS 

235 

TM?«0. 

LVS 

230 

op«o. 

LVS 

233 

en»o,. 

LVS 

240 

W*tlK.7)«6. 

LVS 

243 

KO{K>7)«0. 

LVS 

250 

aha ze«o. 

LVS 

255 

VS5;-C: . 

LVS 

260 

LVS 

263 

tSiAtlO 

LVS 

270 

IVULWO 

LVS 

373 

if(R.ct-9!  ao  re 

LVS 

260 

LVS 

265 

SHiRHSESiiKj 

LVS 

280 

AHAZt*4M'«AIS) 

LVS 

2*3 

!*#  > » tMVSAUU, 

LVS 

300 

IFjMl.tO.OiMlAMOOEL 

LVS 

303 

|Fi»3.EO.filMJ*M30tL 

LVS 

310 

u  (io.eo.O)wa»M30EL 

LVS 

313 

RETURN 

LVS 

330 

10 

ZK «  «i«v»V  S»«  0 .  Si 

LVS 

333 

I»IHM*»SA.Lf.3.IML»J3 

LVS 

330 

IA(HN»VS».l7,1.)*i.J4 

LVS 

333 

*»tnWAYS*.eu,2.jML*ia 

LVS 

J40 

W0EVJ4-MI 

LVS 

343 

t**K-lO*VOEl 

LVS 

330 

If  t  IN.  tit 

LVS 

333 

trtK.lQ. I0|Z(N)*ZM 

LVS 

SCO 

#t  1  SI*N 

LV-S 

3CS 

c 

LVS 

370 

c 

wcetl  7  COOSIN3 

LVS 

its 

e 

OLO  LAYERS  AEROSOL  at  TURNED 

LVS 

380 

G 

NEW  LAYERS  P.T.3P. AEROSOL 

LVS 

383 

too 

CONTINUE. 

LVS 

3M 

94 


110 


115 


ua 

194 
126 
120 
l  Jo 
!M 


140 


ZVSA( 10)*ZV5A(9)+0.01 

LVS 

395 

RHVSA( 10}=0. 

LVS 

400 

AHVSAt 1Q)=0. 

LVS 

405 

IHVSA(1Q)*0 

LVS 

410 

JMl*ML 

LVS 

415 

IF(MOOEL.E(J.O)WRITE  (IPR.900) 

LVS 

420 

1F(  MODE L.EQ.O)R£ TURN 

LVS 

425 

IF(K.GT.I)  GO  TO  200 

LVS 

430 

kl.ml+io 

LVS 

435 

I F( Ml.GT .34 ) WRI T£( IPR, 910) 

LVS 

440 

IF(ML.GT.34)ML*34 

LVS 

445 

0*1 

LVS 

450 

KN«1 

LVS 

455 

L*1 

LVS 

460 

IFIKN.GT .10)00  TO  140 

LVS 

465 

Jl*0-1 

LVS 

470 

IF( JL.LT.t )JL*1 

LVS 

475 

OP*OUt 

LVS 

480 

I F ( ZVSA( KN ) . EG . A  1 NP ( 1 ,  J  L ) ) GO  TO  ISO 

LVS 

485 

IF(ZVSA(KN).E0.AINP(1.JP))G0  TO  150 

LVS 

490 

I Z /SA  t  KN ) .GT.a1NP( 1 , OL) . AND. ZVSA(KN) • LT. AXNP(  1 

1  ,JP) )G0  TO  119 

LVS 

495 

GO  TCI  140 

LVS 

500 

Z(U). ZVSA(KN) 

LVS 

505 

D!F*AtNP(1 ,JP)-AINP<1 .JL) 

LVS 

510 

0Z*ZVSa(KN)-A1NP(1.0U) 

LVS 

SIS 

OuJf<*u2/ulF 

LVS 

520 

PU.TI=>lAiNP{2.JP)-AJNP(2,0t.)!»0LlN+AINP(2,dL) 

tvs 

525 

T(L.7)*0. 

LVS 

530 

T«PN(U)*(AIMP(3.0P]-A1NP13.0U  )*OUN+A5NP(3.  Jl) 

LVS 

535 

DPM  '.i»!AlNPC4,0P)-AlNP<4.0U  )*DHN+AlNP(4,dU 

LVS 

540 

RNN(  L)*(AtNP(5.0P)~A|NP(S,  Jl) )  <*0L1N*A tNP (S ,  0 L ) 

LVS 

545 

KN(  L.'/')»(AINP(6,0P)"A!NP(6,  JL)  )*0LIN*AtHP(6.0U 

LVS 

8' a 

*G(  L.7).(ArNP{?,  JP>-*l*Pi7.dt))*0UN*AlNP(7,dl) 

LVS 

535 

IHMLWtHVSAiXNJ 

l"S 

560 

AHANi )  *AHV5A(KN  ) 

LVS 

565 

PAC*  1? V'St(  KN)-A!I»P(1 , JL ) )/0I  F  . 

LVS 

570 

IKA|NPi3.JD).Lf..a.0.aR.AtNP‘,2.JU  .wE.O.  )  GO  TO 

122 

LVS 

575 

P<  L.  7  WHIP  2,  JU*fA.I«P(2.JO)/AlNP(3.JU  )*«FAC 

LVS 

960 

|F(AINP(3,JPj.L«.O.O.OR.AiNM3,JU)  .LE.O. )  GO  TO 

124 

LVS 

F.65 

TMPNf.  )..MNr-H3,JU  I.(A).»IP;  3,uP)/AtnP(3.JL))**FAC 

LVS 

590 

lF(4»N1't4.JP).l5.e.O.O«.AJNPt4.4(.)'.Le.O.  )  GO  TO 

124 

LVS 

SR3 

0P«(l.)»*INP(4.JU*1AlNP|4.JP)/AiNrt4,dU))**FAC 

LVS 

CpOC 

If ( A (NP(0. JP) , l? . O-Q.OR. *tNPt5,dt) . 16.0. )  GO  TO 

120 

LVS 

805 

RMKt  L>**I9*M3,JIWA|NP(S,  JP)/A)NPtS,JL))*«FAC 

LVS 

810 

tfiAlMFiO.vlP)  .IS. C.0.CR.AIJIP(6, JL)  .U.O.  )  GO  TO 

130 

LVS 

315 

*MtL.?)»4tNP(8.JLMA*NPt«.JP)/A!NP;«,Ji.))*»rAC 

LVS 

820 

«P(4|NP(J»‘,7),LE  O.O.GS.AlNPif.JU.uE.O.)  GO  TO 

139 

•VS 

•>25 

VOI  L.Tt'A'NPiT.JLlAiAJMPiS.JPj/AlHPlS.dLjJ^FAC 

tvs 

830 

COMt IMUC 

LVS 

ess 

tUL.tO.VL)  GO  TO  SOO 

LVS 

640 

L*L*> 

LVS 

946 

i1N*KN-  1 

LVP 

e»o 

50  TO  HO 

LVS 

656 

Zil  WiNPt  1  .d) 

LVS 

660 

P(l.  ..,i*A|NP!2,J> 

LVS 

865 

TU.T»M>. 

LVS 

670 

'V.PNH  (»4|NP(Z,4) 

in 

675 

OTNiL)*A:’tPi«.J 

tvs 

680 

J»K*Ut»*JN»(6,d) 

LVS 

M5 

&!> 


NH<L,7)-AINP(6,d) 

LVS 

690 

N0( L,7)»AINP(7,d) 

LVS 

695 

IHN(L)«0 

LVS 

700 

IF(KN.LE.S)  IHN(L)«IHVSA(KN) 

LVS 

705 

AHAN(L)*0. 

LVS 

710 

IF( KN. LE.9)  GO  TO  160 

LVS 

715 

149 

IF(J.E9.iML)G0  TO  200 

LVS 

720 

IF( L.EQ.ML)GO  TO  200 

LVS 

725 

L.L+1 

LVS 

730 

d«d+1 

LVS 

735 

GO  TO  110 

LVS 

740 

150 

ML«ML-1 

LVS 

745 

d*d  M 

LVS 

750 

GO  TO  IIS 

LVS 

755 

160 

KL-KN-1 

LVS 

760 

ZF(KL. LE.0)KL«1 

LVS 

765 

KP.KL+1 

LVS 

770 

0IF«2V5A(KP)-2VSA(KL) 

LVS 

775 

02»AINP(1 , d)-ZVSA(KL) 

LVS 

780 

0LtN»D2/OIF 

LVS 

785 

AHAN(L)»(AHVSA<KP)-ANVSA(KL))»0L:N4AHVSA(KL) 

LVS 

790 

GO  TO  145 

LVS 

795 

aoo 

TMP»TMPN(K) 

LVS 

600 

VIS1«0. 

LVS 

805 

ISEA1.0 

LVS 

610 

IVUL1-0 

LVS 

815 

DPaDPN(K) 

LVS 

620 

RH.RHN(K) 

LVS 

825 

IHA1»IHN(K) 

LVS 

830 

AHAZE<AHAN(K) 

LVS 

835 

RETURN 

LVS 

840 

MOO 

'  FORMAT  ( 1  ERROR  RUOF.L  EO  0 -AND  ARMY  MODEL  CANNOT 

MIX') 

LVS 

645 

*10 

FORMAT ( >  ERROR  ML  GT  24  ANO  ARMY  MODEL  TOR  LAvER 

TRUNCATED') 

LVS 

050 

ENO 

LVS 

859 

SUBROUTINE  RONSU{ML,|N) 

c 

C  this  S'JinOUTJNS  REAPS  MODEL  T  DATA  NH6N  SSVA  EO  1 

c 

CQKA!0N/NSlNP/AJNP(7,a4  I 
COMUON  /inu^JHO.UHt.lPU.KPH 
DO  20  I«1,«l 

REAO(  IPO. 80)(AINP( J.t)  .0*1,7) 
NA|T8(tRR.60)(AlNR(d.»>.d«1.?> 

30  CONTINUE 
IM.O 

to  fqBMArl3)!,o.3,aEs,i  ,aeio.i,E«e.  j,R7.i) 

RE1  URN 


ROW  '.00 
ROW  105 
ROM  110 
ROM  )  15 
ROM  130 
ROM  1 35 
ROM  130 
ROM  130 
ROM  140 
RA4  149 
ROM  ISO 
ROM  1S9 

rom  iao 


oonooonnoononnnonooooooruvmonoono.iooncooonooooonoooooooooo 


SUBROUTINE  VSA(IHAZE, VIS, CEILHT, DEPTH, ZINVHT, Z,RH,AHAZE,IH)  VSA 

VSA 

VERTICAL  STRUCTURE  ALGORITHM  VSA 

VSA 

FROM  ATMOSPHERIC  SCIENCES  LAS  (U.S.  ARMY)  VSA 

WHITE  SANOS  N.M.  VSA 

VSA 

CREATES  A  PROFILE  OF  AEROSOL  OENSITY  NEAR  THE  GROUND, INCLUOINQ  VSA 
CLOUDS  AND  FOG  VSA 

VSA 

THESE  PROFILES  ARE  AT  9  HEIGHTS  BETWEEN  0  KM  ANO  3  KM  VSA 

VSA 

VSA 

•♦•VISIBILITY  IS  ASSUMED  TO  BE  THE  SURFACE  VISIBILITY***  VSA 

VSA 

I HAZE  *  THE  TYPE  OF  AEROSOL  VSA 

VIS  •  VISIBILITY  IN  KM  VSA 

CEILHT  *  THE  CLOUD  CEILING  HEIGHT  IN  KM  VSA 

DEPTH  *  THE  CLOUD/FOG  DEPTH  IN  KM  VSA 

ZINVHT  •  THE  HEIGHT  OF  INVERSION  OR  BOUNDARY  LAYER  IN  KM  VSA 

VSA 

VARIABLES  USED  IN  VSA  VSA 

VSA 

ZC  «  CLOUD  CEILING  HEIGHT  IN  M  VSA 

TT  *  CLOUD  DEPTH  IN  M  VSA 

ZINV  »  INVERSION  HEIGHT  IN  M  VSA 

SEE  BELOW  FOR  MORE  INFORMATION  ABOUT  ZC,  ZT,  AND  ZINV  VSA 

0  *  INITIAL  EXTINCTION  AT  THE  SURFA5E  (0*3.912/VIS)  VSA 

ZALGO  ■  THE  DEPTH  OF  THE  LAVER  FOR  THE  ALGORITHM  VSA 

VSA 

OUTPUT  ;  ROM  VSA l  VSA 

VSA 

Z  •  HEIGHT  IN  KM  VSA 

KH  •  RELATIVE  HUMIDITY  AT  HEIGHT  Z  IN  PERCENT  VSA 

AHAZE  •  EXTINCTION  AT  HEIGHT  Z  IN  KM**-I  VSA 

IH  ■  AEROSAL  TYPE  FOR  HEIGHT  Z  VSA 

HMAX  *  MAXIMUM  HEIGHT  IN  KM  USED  IN  VSA,  NOT  NECESSARILY  3.0  KM  VSA 

VSA 

VSA 

THE  SLANT  PATH  CALCULATION  USES  THE  FOLLOWING  FUNCTION!  VSA 

VSA 

EXT55«A«EXP{B»EXP(C*Z) )  VSA 

VSA 

WHERE  IS  THE  HEIGHT  IN  KILOMETERS,  VSA 

•A1  IS  A  FUNCTION  OF  EXT59  AT  Z.O.Q  AND  IS  ALWAYS  POSITIVE,  VSA 


•B'  ANO  ‘C1  ARE  FUNCTIONS  OF  CLOUD  CONDITIONS  AND  The  SURFACVSA 
VISIBILITY  (EITHER  A  OR  B  CAN  BE  POSITIVE  OR  NEGATIVE) ,  VSA 
'EXTS5'  Is  THE  VI5SBILE  EXTINCTION  COEFFICIENT  IN  NM*»-1 .  VSA 

VSA 

THEREFORE,  THERE  ARE  «  CASES  OEPENDING  ON  THE  SIGNS  OF  • ANO  'C'VSA 


CEILHT  ANO  ZINVHT  ARE  USED  AS  SWITCHES  TO  DETERMINE  WHICH  CASE  VSA 
TO  USE.  THE  SURFACE  EXTINCTION  ‘O'  IS  CALCULATED  FROM  THE  VSA 

VISIBILITY  US1N0  0»3.9I2/VIS-0.013  THE  FOUR  CASES  ARE  AS  FOILOWSVSA 

VSA 

CASE.t  FOG/CLOUO  CONDITIONS  VSA 

'8'  LT  0.0.  'C'  LT  0.0  VSA 

'O’  OE  7 , OCR  KM*.-!  VSA 

FOR  A  CLOUD  7,064  KM**-1  IS  THE  BOUNDARY  VALUE  AT  VSA 
THE  CLOUO  BASE  ANO  'Z*  IS  THE  VERTICAL  OISTAMCE  VSA 


100 

105 

11D 

115 

120 

125 

130 

135 

140 

145 

150 

165 

160 

165 

170 

175 

ISO 

185 

190 

195 

200 

305 

310 

215 

320 

225 

230 

235 

240 

245 

250 

255 

260 

255 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

333 

340 

340 

350 

355 

3B0 

365 

370 

375 

380 

365 

380 
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°  °  °  0  00 00000000 non 000 000 0000 000 00 00  0000  000 


C 


INTO  THE  CLOUD. 

VARIABLE  USED:  DEPTH 

«•  DEFAULT!  DEPTH  OF  FOQ/CLOUD  IS  O.S  KM  NHEN 
'DEPTH*  IS  0.0 

■2  CLOUD  CEILING  PRESENT 
*8'  GT  0.0,  ‘C*  GT  0.0 

•O'  GT  0.398  IS  CASE  2  FOR  HAZY/FOG 

SURFACE  CONDITIONS 

*0*  LE  0.398  KM*.-t  IS  CASE  2'  FOR  CLEAR/HAZY 
SURFACE  CONDITIONS 

VARIABLE  USED!  CEILHT  (MUST  BE  GE  0.0) 

**  DEFAULTS!  CASE  2  -  CEILHT  IS  CALCULATED  FROM 
SURFACE  EXTINCTION  OR 
CASE  2'  -  CEILHT  IS  1.8  KM  NHEN 
‘CEILHT1  IS  0.0 

•3  RADIATION  FOG  OR  INVERSION  OR  BOUNDARY  LAYER  PRESENT 
'8'  LT  0,0,  'C'  GT  0.0 

VIS  LE  2.0  KM  DEFAULTS  TO  A  RADIATION  FOG  AT  THE 

GROUND  AND  OVERRIDES  INPUT  BOUNDARY  AEROSOL  TYPE 
VIS  GT  2.0  KM  FOR  AN  INVERSION  OR  BOUNDARY  LAYER 
WITH  INPUT  BOUNDARY  AEROSOL  TYPE 
••  IHAZE.9  (RADIATION  FOG)  ALWAYS  DEFAULTS  TO  A 
RADIATION  FOG  NO  MATTER  WHAT  THE  VISIBILITY  IS, 
SNITCH  VARIABLE!  CEILHT  (MUST  BE  LT  0.0) 

VARIABLE  USED:  ZINVHT  (MUST  BE  GE  0.0) 

»•  CEILHT  MUST  BE  LT  0.0  FOR  ZINVHT  TO  BE  USEO  •• 
HOWEVER,  IF  DEPTH  IS  GT  0.0  AND  ZINVHT  IS  EQ  0.0. 
THE  PROGRAM  WILL  SUBSTITUTE  DEPTH  FQR  ZINVHT. 

*•  DEFAULT:  FOR  A  RADIATION  FOG  ZINVHT  IS  0.2  KM 

FOR  AN  INVERSION  LAYER  ZINVHT  IS  2.0  KM 

•4  NO  CLOUD  CEILING,  1NVERSIUN  LAYER,  OR  BOUNDARY 
LAYER  PRESENT,  I.E.  CLEAR  SKIES 
EXTINCTION  PROFILE  CONSTANT  WITH  HEIGHT 

COMMON  /I F 1 L/IRO, I  PR, I PU,NPR 
DIMENSION  Z(10) ,RH( 10) .AHAZE(IO) , IH( 10) 

DIMENSION  AA(2).CC(2),E£(4),A(2),B(2),C(2),FAC1(8) , FAC2(9) 

REAL  KMTOM 

DATA  AA/92 .1,0.3091/. CC/-0.0 1 4, 0 . 0 125/ .KMTOM/1 000 , 0/ 

THE  LAST  3  VALUES  OF  EE  BELOW  ARE  EXTINCTIONS  FQR  VISIBILITIES 
EQUAL  TO  S.O,  S3.0.  ANO  50,0  KM,  RESPECTIVELY. 

OAT A  EE/ 7 . 084 . 0 . 7024 , 0 , 1 7009 , 0 . 07824/ 

DATA  FAC1/0. 0,0. 03. 0.09, 0,075. 0.1, 0.18, 0.3. 0.48,1.0/ 

DATA  FAC2/0. 0.0. 03. 0.1. 0.18, O.J.O. 45, 0.8, 0.78. 1.0/ 

WHTE(  IPR.S99) 

UPPER  LIMIT  ON  VERTICAL  OISTANCG  -  2  KM 
ZNIGH>2000 . 

MMAX.ZHtCH 

IFtVIS.OT. 0.0)00  TO  B 

default  fur  visibility  depends  on  the  value  of  ihazi. 

I F( tHA2E.EQ.B|V) S»0 . 2 

|F( IMAIE.EQ.91 VI 5*0.5 

IF( lHAtt . CD, 2.0R . IHAIfc . EO , 5) V 1 5«3 . 0 

IF(  IHA2S.EQ.  t  ,QR.  tt<AZE.EQ,4.0R.  IHAIE.EQ. 7 )vl 5*33.0 

IF( iHAlE,EQ,|)V15*60.0 


VSA 

395 

VSA 

400 

VSA 

405 

VSA 

410 

VSA 

415 

VSA 

420 

VSA 

425 

VSA 

430 

VSA 

435 

VSA 

440 

VSA 

445 

VSA 

450 

VSA 

455 

VSA 

460 

VSA 

465 

VSA 

470 

VSA 

475 

VSA 

480 

VSA 

485 

VSA 

490 

VSA 

495 

VSA 

500 

VSA 

505 

VSA 

510 

VSA 

515 

VSA 

520 

VSA 

525 

VSA 

530 

VSA 

535 

VSA 

540 

VSA 

545 

VSA 

550 

VSA 

555 

VSA 

seo 

VSA 

869 

VSA 

570 

VSA 

875 

VSA 

580 

VSA 

585 

VSA 

500 

VSA 

995 

VSA 

800 

VSA 

609 

VSA 

810 

VSA 

615 

VSA 

820 

VSA 

825 

VSA 

830 

VSA 

635 

VSA 

840 

VSA 

64$ 

VSA 

850 

VSA 

ess 

VSA 

860 

VSA 

885 

VSA 

670 

VSA 

678 

VSA 

680 

VSA 

U9 

DO 


ou  o  o  o  o  o  o  o  oo  o  o  o  uu  uuu 


C  tF(IHAZE.£0.3)VlSr???7??  VSA 

5  D-3.912/VIS-0.012  VSA 

C  VSA 

2C*CEILHT*KMT0M  VSA 

ZT»0EPTH*KMT0M  VSA 

ZlNV*ZINVHT*KMTtW  VSA 

C  IHAZ£«9  (RADIATION  POO)  IS  ALWAYS  CALCULATED  AS  A  RADIATION  FOG.  VSA 
IF(lHAZE.E0.9)ZC  —  1  .0  VSA 

ALSO,  CHECK  TO  SEE  IF  THE  FOG  OEPTH  FOR  A  RADIATION  FOG  VSA 

WAS  INPUT  TO  DEPTH  INSTEAD  OF  THE  CORRECT  VARIABLE  ZINVHT.  VSA 

IF(IHAZE.E0.9.ANO.ZT.GT.O.O.AND.ZINV.60.0.0)ZINV«ZT  VSA 

VSA 

•IC  DEFINES  WHICH  CASE  TO  USE.  VSA 

IC.J  VSA 

IF(O.GE.EE(1).ANO.ZC.GE.O.O)1C«1  VSA 

VSA 

XF( ZC . LT.O .0. AND. IC.EQ.2)!C»3  VSA 

IF(ZINV.LT.0.0.AND.IC.E0.3)IC"4  VSA 

■ICC’  IS  FOR  THE  TWO  CASES!  3  AND  2'.  VSA 

ICC*0  VSA 

IF(IC.E0.2)!CC»1  VSA 

IF(0. LE. AA( 2) . AND. 1C . EQ.2) ICC*2  VSA 

K-1  VSA 

IF( 1CC.EQ. 2)00  TO  30  VSA 

GO  TO  (10.20, 40, 00), 1C  VSA 

V$A 

CASE  1!  DEPTH  FOG/CLOUD:  INCREASING  EXTINCTION  WITH  HEIGHT  FROH  VSA 
CLOUD/FOG  BASE  TO  CLOUD/FOG  TOP.  VSA 

0  CONTINUE  VSA 

1F(ZC.LT.HMAX.ANQ. IC. EO . 2 )K*3  V$A 

ICi-t  WHEN  A  CLOUD  IS  PRESENT  AND  THE  PATH  GOSS  INTO  IT.  VSA 

USE  CASE  0  OR  2‘  BELOW  CLOUD  AND  CASE  1  INS10E  IT.  VSA 

iF(K,eo,2Hc.(-t)  vsa 

THE  BASE  OF  THE  CLOUD  MAS  AN  EXTINCTION  COEFFICIENT  OF  7.064  KM-1.VSA 
1F(K.EQ.2)0«EE(U  vsa 

A(KWAA(1)  VSA 

IF  THE  SURFACE  EXTINCTION  IS  GREATER  THAN  THE  UPPER  LIMIT  OF  83,1  VSA 
K!4*.-1,  RUN  THE  ALGORITHM  WITH  AN  UPPER  LIMIT  OF  ‘OHO1.  VSA 

|F(0.GE.AA(1))A(K).0*10.0  VSA 

C(K)*CCt1)  VSA 

I«(r.LE.O.O)WRITE(IPR  .603)  VSA 

I«(ZT.LC.O.O)<fRITC(IPR  .804)  VSA 

lP(ZT.GT’.ti.Q)NRI»E(!PR  .811  )ZT  VSA 

|F  THE  DISTANCE  FROM  THE  GROUND  TO  THE  CLtHlD/FOO  TOP  IS  LESS  VSA 

THAN  2.0  KM,  VSA  Will  ONLY  CALCULATE  UP  TO  THE  CLOUD  TOP.  VSA 

IF(ZT.LE.O.e)ZT*200.  VSA 

HMkX>AUtNI (2T*2C,HMAX)  VSA 

CO  TO  BO  VSA 

VSA 

CASE  21  HA>Y/UGHTLY  FOGGY;  1KCA EASING  EXTINCTION  WITH  HEIGHT  VSA 

UP  TO  THE  CLGUO  BASE.  VSA 

30  A(K)*AA(3)  VSA 

£»EE( 1)  VSA 

)F(IC.EQ,0.0)MA1 TE( IPR  ,805)  VSA 

|Ft ZC .EO.0 . 0)CE t L< ALOGt  AL03t  t,JA(K) )/( AlQGt 0/A(K) ) ) )/CC(3)  VSA 

I F( ZC .  EO .0 . 0)WRI ’£( IPR  ,603 )CEIL  VSA 

t?(z<:.o*.o.ojwa:Tt(iP#  ,*ioiiu  vsa 

t  F(ZC • to.0 .0)ZC*Lt 1L  VSA 

oo  to  eo  vsa 


690 

695 

TOO 

705 

710 

715 

720 

725 

730 

735 

740 

745 

750 

755 

780 

765 

770 

775 

7B0 

785 

790 

795 

BOO 

805 

BIO 

BIB 

820 

B25 

830 

835 

B40 

845 

850 

839 

880 

889 

870 

879 

880 
819 
•90 

899 

900 
809 
910 
•19 
920 
•39 
•SO 
•33 
•40 
•49 
•SO 
959 


•70 

•79 

*60 


90 


30 


C 

C 

C 

C 

40 


ISO 


VSA 

CASE  2 * :  CLEAR/HAZY;  INCREASING  EXTINCTION  WITH  HEIGHT,  BUT  LESS  VSA 
SO  THAN  CASE  2,  UP  TO  THE  CLQUO  BASE, 

A(K)*0»0.9 
E.EE(1) 

IF(ZC.E0.0.0)WRITE(IPR 


IF(ZC.£0.0.0)WRITE(IPR 
IF(ZC.GT.O.O)WRITE(IPR 
IF(ZC.EQ,0.0)ZC*1800. 
GO  TO  60 


,600) 

.818) 

,610)ZC 


VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 


985 

990 

995 

1000 

toos 

1010 

1015 

1020 

1025 

1030 


CASE  3i  NO  CLOUD  CEILING  BUT  A  RADIATION  FOG  OR  AN  INVERSION 
OR  BOUNDARY  LAYER  PRESENT;  DECREASING  EXTINCTION  WITH 
HEIGHT  UP  TO  THE  HEIGHT  OF  THE  FOG  OR  LAYER, 

A(K)-D«1 .1 
E-EE (3) 

IF(IHAZE.EO,2.0R.1HAZE.EQ.5)E*EE(2) 

IF( 1HAZE, E0,6,OR. ( VIS. GT. 2.0. AND. IHAZE.NE.9) )E-EE(4) 

IF (E.GT.0)E*D«0. 99999 

IF(ZT.GT.O.O.ANO.ZINV.EO.O,O.AND.VIS.LE.2.0)ZINV.ZT 
!F(ZINV.EQ.O.O.AND.VIS.GT.J.O.ANO.IHAZE.nE.9)WR!TEUPR  ,601) 
IF(Z1NV.EO.O.O.AND. (VIS. LE. 2.0. OR- IHAZE.E0.9))WRITE(  IPR  ,605) 
IF(ZINV.EO.0.O. AND. (VIS. LE.2.0.0R. IHAZE.EQ.9))WR1TE(  IPR  ,604) 
IF(ZINV.GT.0.O.AND.VIS.GT.2.0.AND. 1MAZE.NE.9)WRITE(IPR 
IF(ZINV.GT ,0.0. AND. (VIS. IE. 2.0. OR. I HAZE, EO. 9) ) WRITE) IPR 
IFfZINY. £0.0,0, AND. VIS.GT. 2.0. AND. IHAZE.NE.91ZINV. 2000 
IF( Z INV . EO ■ 0.0. AND. t V IS. LE .2 .O.OR. 1HAZE.E0.9) )Z1NV«200 
HMAXaAMINt (Z1NV.HNAX) 

ZC‘0,0 


VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 

VSA 


CASE  «t  NO  CLOUD  CEILING  OR  INVERSION  LAYER;  CONSTANT  EXTINC¬ 
TION  WITH  HEIGHT. 

IF{ IC .ME.4 )B(H) *ALQG{ 0/A(K>) 

IF( |C.E0.4)WRITE( IPR  .613) 

IF()C . E0.2 )C(K) <ALOO( ALQGi E/A(K) )/B( X) )/ZC 
IF(IC,E9.3)CtK>«AL0G(ALQG<E/A(K))/»(K))/ZINV 
IF(ZC.LT.HMAX.AN0.K.EO.1.ANO,IC.E0>3)CO  TO  to 
XF(  1C  •  £Q.2)HUAX*AAIIN1  (ZC.HHAX) 

ZALGO-MMAX 

IF( IC . LT .0 )ZALGO<ZC 

WRITE! IPR  .610) 

IK1C.LT.0)X*1 

00  TO  1. 1.9 

IF ( 1C . IT .O.AND. 1 . CO. S) 4*2 

I F ( 1 C . L  T . 0 . AND « 1 .10.6) ZAoGO*HMAX-ZC 

2tI)»2ALGO*(1.0-FAC2(TO-II) 

IF( IC .EO. 1 ) l( t ) •ZALCO*FACI ( I ) 

»p(te.to.4)Z(t)»mao*FLOATt  t-t)/s,o 
IF(IC.LT.0.AN0.l.LT.8)*U)**Al60»(l.0-FAC3(tt-3»ni 
1*( IC. LT.O.ANO. ( .Gt.9)Z( I)»ZALG0«FAC1 (2*1-9) 

IF(  IC .  LT.O.  AND.  1 1 . EO.  T.OR.  I , EO  B) )Z!  I  )-IAlCO»FACI  (3-I-TO) 

IF( IC.Nt.4)AHAZt ( I )oA(K)*EXP(6(K)*CXP(C(H)«I(l) ) ) 

tr(U.E0.4)AHAzeU)«0 

IF( IC . LE.o.ANO. t.G£,#)2<t)*2(t )*ZC 

Z(I)*;il)/«(WTON 

»H(  I  )»C.»53*»LOGt  AMAZE (1  ))»«*. *0T 
J  F( *H»i£( I ) .GE.CEt  t ) iRHi I  )»100.0 

vttieo.ota/(AMAZi(t)*o.ot3) 


,612)Z!NV  VSA 
,614)ZINVVSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
V$A 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
V$A 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
VSA 
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VSA  1035 
VSA  1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
10R0 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1135 
1140 

1149 

1150 

1159 

1160 
116# 
IITp 

ms 
1160 
1I« 
11»0 
MM 
1200 

1309 

1310 
1315 
1330 

1339 
1330 
1335 

1340 
13*9 
1390 
1359 
•  3*0 
13C9 
1330 
137# 


100 


IHC I )-IHAZE 

C  IF  *  RADIATION  FOQ  IS  PRESENT  (I.E.  VISOR. 0  KM  ANO  IC-3) . 

C  IH  IS  SET  TO  9  FOR  ALL  LEVELS. 

!F( V1SIB. LE .2.0. ANO. IC.EQ.3)IH(I)*9 
C  FOR  A  DEPTH  FOO/CLOUD  CASE,  IH>3  DENOTING  AN  AOVECTION  FOG. 

!F( IC. EQ. 1 .OR. ( IC. LT .0 .AND. I.GE.5))IH(t)«6 
NRITEIIPR  ,620)2(1), RH(I),AHAZE(I),VlStB,IH(I) 

70  CONTINUE 

HMAX*HMAX/KMTOM 

RETURN 

C 

899  FORMAT ( '0  VERTICAL  STRUCTURE  ALGORITHM  (VSA)  USED1) 

800  FORUAT(1H  .50X.2BMCL0UD  CEILING  HEIGHT  UNKNOWN) 

601  FORMAT ( IH  ,50X,42HINVERSION  OR  BOUNDARY  LAYER  HEIGHT  UNKNOWN,/, 
1  IH  .S0X.39HVSA  WILL  USE  A  DEFAULT  OF  2000.0  METERS,/) 

609  FORMAT ( IH  ,S0X,27HRAD!AT!0N  FOG  DEPTH  UNKNOWN) 

61g  FORMAT ( IH  .50X.39HVSA  WILL  USE  A  DEFAULT  OF  1800.0  METERS./) 

619  FORMAT (SX,  1 0HHEIGHT(KM)  ,SX  ,7HR.H.  (X)  ,5X,  16NEXT !NCT!QN(KM'*1  ), 

1  5X, 1SHVIS(3.912/EXTN) , 5X, 5HIHAZE , /) 

820  FORMAT (7X,F7.4,7X,F5.1,8X,£12.4t11X,F7.4,10X,I2) 

602  FORMAT(1H  , 39X, 35HVSA  WILL  USE  A  CALCULATED  VALUE  OF  ,F7.1, 

1  7H  METERS./) 

603  FORMAT(1H  ,SOX, 19KCLOUO  DEPTH  UNKNOWN) 

604  FORMAT ( IH  ,S0X,3OHVSA  WILL  USE  A  DEFAULT  OF  200. 0  METERS,/) 

610  FORMAT ( IH  .50X.24HCL0U0  CEILING  HEIGHT  IS  . F9. 1 . TN  METERS./) 

611  FORMAT ( IH  ,S0X, 1SHCLQUD  DEPTH  IS  .F14.1.7H  METERS,/) 

612  FORMAT ( IH  ,SOX,38HlNVERStON  OR  BOUNDARY  LAYER  HEIGHT  IS  ,F7.1, 

1  TH  METERS,/) 

614  FORMATOH  .50X.26HDEPTM  OF  RAO1ATI0N  FOG  IS  ,FT.  1  ,TH  METERS,/) 

613  FORMAT ( IH  ,S0X,43HTHERE  IS  HO  INVERSION  OR  BOUNDARY  LAYER  OR  . 

1  13HCLOUO  PRESENT,/} 

ENO 


VSA  1280 
VSA  128S 
VSA  1290 
VSA  129S 
VSA  1300 
VSA  130S 
VSA  1310 
VSA  1315 
VSA  1320 
VSA  1323 
VSA  1330 
VSA  1335 
VSA  1340 
VSA  1345 
VSA  1350 
VSA  1355 
VSA  1360 
VSA  1385 
VSA  1370 
VSA  1375 
VSA  1380 
VSA  1385 
VSA  1390 
VSA  1305 
VSA  1400 
VSA  1405 
VSA  1410 
VSA  1415 
VSA  1420 
VSA  1425 
VSA  1430 
VSA  1435 


101 


c* 

c 

c 

c 

c 

c 

c 

c 

c 


c» 


BLOCK  DATA  MOT A 
BLOCK  DATA 

model  atmosphere  data 

COMMON  /CNTRL/  KHAX.M, IKMAX.nL.ML, IKLO. 1SSQEO 
NL  IS  NUMBER  OP  LAYERS  IN  PROFILES  1  TO  6 
LAYER  34  (AT  99999KM)  IS  NO  LONGER  USED 

COMMON  /MOATA/  2(3<),P(34.7),t(34,7),MH(34,7),MO(34,?), 

X  HMtX(34) 

COMMON/MDATA/ZK  34) , pi (34) ,P2(34) , P3(34) , P4(34) , PS(34) , Pfl( 34) , 
X  P7(34) ,71(34), 72(34), 73(34), 74(34), T5(34),T$(34),T?(34), 

X  MH1 (34) >Nh3(34) ,WH3(34) ,*W4(34) ,KH5(34) ,nh6(34) ,NH7(34) , 

X  M01 (34) , *02(34) .403(34) .404(34) .403(34) ,40S(34) ,407(34) , 

X  HMlX(34) 

OATA  NL  /33/ 

OATA  «/ 


MOT 

MDT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MDT 

MOT 

MDT 


OATA  PI/ 

1  1 . 013E+03, 
3  4.9206*02. 

3  3.130E+03, 

4  7.690E*01 . 
3  3.000E+01 . 
B  8.640E-0(. 

OATA  P2, 
t  1.013E*  3, 
3  4.87QE*02, 

3  2.090E«02, 

4  6.1206*01, 
3  3.2206*01, 
B  9.9106*01. 

OATA  P3/ 

1  t . 0182*03, 
3  4.6276*02, 

3  1,9826*02. 

4  7 . 3606*01 , 

5  3 . 8606*01 , 
B  6.8306-01 , 

Data  P4/ 

1  1.0106*63, 

3  4.7«0S*O3. 

3  l.97?6*0.\ 

4  T. 9801.01 , 

8  3.32t!6*Ol. 
B  9.3T0E-01. 

Data  fa/ 

1  ». 0132*0-3. 
3  4.46Tt«o;. 

3  1.7608.63. 

4  B.a»2e«oi , 

9  3.649t*0> , 

•  8.  7194-01 , 

Data  p*/ 


9.0402*02.  8.0502*02,  7.1506*02. 
4. 3202*02,  3.7806*02,  3.390E*03. 
1 .8202*02.  1.5606*03,  1-320E*03, 
6. 8606*01,  5.6506*01 , 

3.5706+01.  1.2206+01, 

S.790E-02,  3.000E-04, 


4.8006*01 
6. 0006*00. 
0.  / 


9.0206*03.  9.0306*02, 


1.7906*02. 
6.9506*01, 
3.7706*01 , 
6. 71 06-02. 


1.5306*02, 
S. 9506+0 1, 
1.3306+01. 
3.0006-04, 


8.97)6*02,  7.8976*03. 
4.0166*03.  3.4736*03, 


B.  9381*02. 
3.9936*03. 
1 . 1 786*02. 
4.5906*01, 
8.1806*00. 
0.  / 


7.0006*03. 
3.1036*03. 
I. 2806*02. 


1.8116+03.  1.3786+03, 

8.3306*01.  8.3706*01, 

3.4406+01,  1.1106+01. 

4.8T0E-03.  3.0006-04, 

8.9006*03.  7.9296*03 , 

4.1306*03.  3,5906*93, 

1.7006*03.  1,4506*03, 

8.8006*01,  5.9306*01, 

3.70a«*0l.  1.3406*01, 

7,0706-03.  3.0096-04, 

B,#T«6*C2.  7.7756*03, 

3.8536*03.  3.3006*93.  3.8236*03,  3.4185*01, 
1.5106*02.  l.39lt*02,  1.1036*03,  9.4316*01, 
8.8756*01 .  8.0146*01,  4.3776*01.  3.847(191. 
3.3396*0! ,  1.0206*91.  4,T01£*00.  3.3*36+00. 
4.1106-03.  3.0006-04,  0.  / 
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180 
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185 


1 

0., 

1.. 

a.. 

3., 

4>  . 

5., 

6. . 

7.. 

8.. 

MDT 

190 

a 

9,, 

10. , 

11.. 

12. , 

13.  , 

14., 

15.. 

16., 

17.. 

MOT 

195 

3 

18,. 

19., 

20. , 

2'., 

22.  . 

23.. 

24., 

28.. 

30. , 

MQT 

200 

4 

35.. 

40.. 

45.  , 

50.. 

70.  . 

100. ,99998./ 

MOT 

205 

MOT 

6. 3306*03,  8. 5906+02 , Mot 
3.8806+02,  3. 4706*02, MOT 
1.1 10E+03,  9.3706*01 .MOT 
4.0906+01,  3.5006*01 .MOT 
3.0506+00,  1 ,5906+00 .MOT 
MOT 
MOT 

7 . 1006*02,  B. 3806+02.  5. 5406*03 .MOT 


4.2G0E+03.  3.7206*03,  3.3406*03.  3.8106*03,  3 . 4306*03 .MOT 


1.3006*02.  1.1106+02,  9.5006*01 .MOT 
5.1006*01,  4.3706*01,  3. 7606*01. MOT 
6.5306*00.  3.3306*00,  1 .7006*00 .MQT 

MOT 

MOT 


6.0616+03.  8. 3136*03. MOf 
3.8596*03,  3. >996*03. MOT 
1 , 007(*03 ,  a. 6106*01 .MOT 
3.9106*01,  3.3406*01 .MOT 
3.6301*00,  1,3906 *00. MOT 
MOT 
MOT 

6.1806*03.  8. 4106*03. MOT 
3.6T7(*02.  3. 3006*03. MOT 
1 .0606*27.  9. 3906*01. MOT 
5.0706*01,  4.3906*01.  3. 7506*01 .MOT 
8.8106*00.  3,4006*00,  1.8206*00. MOT L  340 
0.  /  MOT  34S 

Mi)T 

8.7986*03,  6.9336*03,  5. »S#t*02.MOT 


210 

215 

230 

235 

230 

235 

240 

245 

350 

255 

2C0 

265 

270 

275 

280 

285 

390 

295 

300 

305 

310 

315 

330 

335 

330 

335 


a. 0878*02. MOT 
8.0596*01 ,MOT 
3. 10*6 *0i. MOT 
1, 1131*00, SOT 
MOT 
MS? 


1  1 . C 1 36*03  .  0.68*6*02.  7.9506*02,  7.0126*03,  6. IBM *03,  B.405C*03.MOT 


350 

355 

380 

365 

370 

375 

380 

3*9 

360 
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a  4.7a2E+oa,  4.iue+oa> 

3  1.9406+02,  1.658E+03. 

4  7.5856+01,  8.467E+01 , 

5  a. 9726+01 ,  2.5496+01 » 
•7.978E-01,  5.520E-02. 

DATA  P7  /34+0.  / 

DATA  T1/ 

1  a.997E+02,  2.937E+02. 
a  2.636E+02,  2.570E+02. 

3  a.a3GE+oa,  a.uoE+oa. 

4  1.909E+OJ,  2.037E+02. 
s  a.«92E+oa,  a.ai4E+02. 

6  a . 702E+02 .  a.1S9E+0a. 
data  ra/ 

t  a.S42E+0a,  2.897E+02. 
a  a.6i2E+oa,  a.s4TE+oa. 

3  a.aaaE+oa,  a.issE+oa. 

4  a.isaE«oa.  a.i79E+oa. 

5  a. 2396+02,  2.251E+02. 
«  2.757E+0S,  3.101E+O2. 

DATA  T3/ 

1  a.T22E+0a,  2.687E+0a. 
a  a.437E«oa,  a.377E+oa. 

3  a.tSTE+oa,  a. 1026+02. 

4  8.1576+02,  a.isaE+oa. 
s  a.isae+oa,  a.tsae+oa. 

6  2.6576+02,  3.307E+02. 
DATA  74/ 

i  a. 07aE+oa.  a.9i7E+oa. 
a  2.5316+02,  2.4616+02. 

3  a.293£*0a,  2.3526+02, 

4  a.asae+oa,  a.asaE+oa, 

5  a. 2686+03,  2.281 C+Q2. 
e  a. 772E+03,  a.is6E«oa. 

OATA  TS/ 

1  3 . 572E+02,  2,5916*02. 
a  a. 3411*03.  a. 3736+03. 

3  a.i7ae+oa.  a.i73e*oa. 

4  a. 1541.02.  a.l40E««7. 
9  2. 1  '81*03.  a.nsc+oa. 

•  a.593*.oa.  a,497E+oa. 

DATA  10/ 

I  a.«03t«0a,  2.0176+02. 

a  a. 4931+oa.  a.427c+oa. 

3  a. 1*76+02.  a. 1676+02. 

4  a. i*7fo?.  a,i«Tt+oa. 
9  a. 2066*03.  a. 2166+02. 

*  2.7076+03.  a.1«H+0a. 

OATA  T?  /J4+0.  t 
OATA  8M1/ 

1  l . 9006+01 ,  1,2006+01. 
a  0. 9006-01 .  4,7306-01. 

3  i. 0006-03.  1.0006-03. 

4  9.0006-04,  4.900E-04 . 
0  *.0006-04,  *,7086-04, 
•*.3006-0*.  1.4006-07. 

OATA  * 

1  1.4006+01.  *. 3006+00. 

a  *,,1006-01,  3.  Toot -01. 


3.S8SE+02, 
1.417E+02, 
5.529E+01 , 
1 .197E+01 , 
3.006E-04 , 


a.377E+oa, 
2.503E+02, 
a. 103E+03, 
3.067E+02, 
3.32.7E+02, 
a.iooE+oa. 

3.852E+03, 
2.483E+02, 
3. 157E+03, 
2.193E+02. 
2.337E+02, 

a.iooE+oa. 

2.652E+02. 

a.3i?E*oa, 

2.177E+03. 

a.isaE+oa, 

2. 174E+03 , 

a. 1036+03. 

3.763E+02, 
3.392E+02, 
3. 3936*03, 
2,2526*02. 
3.391E+02. 
3.100E+02, 

2.939E+03. 
3. 300E+03 , 
3.1736+02. 
2 . 1426*03, 
3. 1006+03, 

a. 1006+03. 

3. 7336+03, 

a.jese+oa, 

a. 1*76+03. 
3.i«7i*oa. 
a.ssst+oa. 

3.1006*03. 


*. 3006+00, 

a. soot-oi. 

1.0006-09. 

4,9006-04, 

3.1006-04. 

1.0006-09, 

9. 9306+00. 

a.  1006-01, 


3.0B0E+02,  3.650E+02, 
i.aiiE+oa,  i.o33E+oa, 
4.7396+01.  4.0476+01, 
S. 7466+00.  a. 07 16+00, 
0-  / 


a.B37E+oa,  a.770E+oa, 
a. 4366+02,  a.370E+0a, 
3.0376+03,  1.970E+03, 
2.1076+03.  2.1466+03, 
2.431E+02.  3. 5406+02, 
a.iooE+oa/ 

2.7936+02 ,  2 .733E+02 , 
2.4176+02,  3.3536+03, 
a.1S7E+0a.  2.1576+02, 
a.2046+0a.  a. 3166+03, 
a.4S3E+oa.  a.575E+oa, 
a. 1006+02/ 

2.8176+02.  2.5576+02, 
3.257E+02.  a. 1976+03, 
a. 1736*03,  a.167E+oa, 
3.1526+02.  a. 1526+02, 
a.a79E+oa.  a.43aE+oa. 
a.iooE+oa/ 

a. 7096 +03,  3.6556+03, 
3.3336*02,  a. 3526+03, 
a.asaE+oa.  a.asaE+oa, 
a.3»2E+oa,  a.asaE+oa. 
a. 4126+oa.  a.eatt+oa. 

a. 1006*03/ 

3.5376*02.  a.477E+03. 
a. 1736*03,  a.i73i+oa. 
a. 1736+03.  3, 1*66+03, 

a. 1366+03.  a. 1306+02. 
2.2236*03,  3 . 3476+03, 
3.1006+03/ 

a.«07E.oa,  a.saac+oa, 
2.3976+oa.  a. 3336*03. 
3.1*76+03.  a,t*7C»0a. 
a.tTSe+92.  3.1*06+03. 
3. 3*56 +02.  a. 5046+02, 
3.1006*02/ 


4.7006+00.  3.3006+00. 
1.2006-01.  9.0006-03. 
7,6006-04,  *,4006-0*. 
5.1006-64,  S. 1006-04, 

1 ■ 1006+04.  4.3006-0*. 
0.  / 

3. 3006+06.  1. 9006+00. 
1.3006-01.  6. 4006-03. 


2. 3706+02, HOT 
0.85OE+O1 .HOT 
3.467E+01 .HOT 
1 .401 6+00, M07 
HOT 
HOT 
HOT 

3. 7036+02, HOT 
2. 30 16+02, HOT 
1 .9406+02, HOT 
2. 170E+02.HOT 
3 .6481+02, HOT 
HOT 
HOT 

2. 6726+02. HOT 
2. 2886+02, HOT 
2. 1576+02, HOT 
8. 2286+02, HOT 
2. 5906+02,  HOT 
HOT 
HOT 

2. 4976+02. HOT 
2. 1926*02. HOT 
2. 1826+02. HOT 
2. 1526+02. HOT 
2. 5856+02. HOT 
HDT 
HOT 

a.601E+02.HOT 

2. 2526+02. HOT 
2. 2526+02. HOT 
2. 2526+02. HOT 
2. 73*6+02. HOT 
HOT 
HOT 

2. 4096*02 .HOT 
2.172E+02.HOT 
2. 10OE+O2.HOT 
2. 1246+02. HOT 
2. 4706+03. HOT 
HOT 
HOT 

2. 9571+02. HOT 

a.  l«»t*02,HOf 
a.  1*76+03. HOT 
3.  H8E  +  03.3AQT 

a.Mac+oa.wor 

Hot 

HOT 

HOT 

1.5006+09. HOT 
I, 7006-02. HOT 
5. *006 -04. HOT 
9.4006-0*. HOT 
1 . 9006 -OS, HOT 
HOT 
HOT 

1 .0001*06, HOT 
3. 2006-02. HOT 


395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

405 

490 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

5*0 

585 

570 

575 

590 

5*9 


*00 

605 

*10 

*15 

•ao 

025 

•30 

*39 

*40 

*45 

*50 

*5$ 

*90 

4*5 

#76 

•79 

MO 

M9 
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3  e.OOOE-03,  1.8006-03,  1.000E-03,'  7.6006-04. 

4  5.0006-04,  4.9006-04,  4.500E-04,  5.100E-04. 

5  6.000E-04,  6.700E-04,  3.600E-04,  1.100E-04, 

6  0.3OOE-O8,  1.400E-07.  1. 0006-09,  0.  / 

OAT*  KH3/ 

t  3. 5006+00 ,  3. 500E-00 ,  1 .800E+00,  1.3006+00. 


a  a.iooe-ot,  a.sooE-02 

3  6.000E-03,  1.800E-03 

4  5.000E-04 


3. sooe-os.  i.eooE-oa. 

1.000E-03,  7.600E-04. 
4.900E-04,  4.500E-04,  5.100E-04, 


5  9.000E-04,  6.700E-04,  3.600E-0*.  1.100E-04, 

6  8. 300E-06,  1.4006-07.  1.000E-09,  0.  / 

DATA  HH4/ 

1  9. 100E+00, 


2.7006+00, 
4.2006-03. 


5.000E+00,  4. 200E+00, 

3  S. 4006-01,  2.9006-01 >  1.300E-01i 

3  8.000E-03,  1.8006-03.  1.000E-03,  7.600E-04, 

4  5. 000E-04.  4. 9006-04.  4.500E-04,  8.100E-04. 

5  6.000E-04,  8.7006-04 ,  3.600E-04,  1.1006-04, 

6  8.300E-06.  1.400E-07.  1.000E-09.  0.  / 

OAT*  HH5/ 

1  1.2Q0S+00,  1-2006*00.  9.400E-O1,  6.800E-01, 
3  9.8006-03,  5.400E-02.  1.100E-G3,  B.400E-03, 
1 .8006-03 


3  3.6006-03 

4  5. OOOE-04 

5  6.0Q0E-04 

6  8.300E-06.  I.400E-07 
OAT*  WH8/ 

1  5.9006+09.  4.3006*00 
3  3.8006-01 ,  2. 1QOE-01 


1 .0006-03.  7.600E-04 
4.9006-04,  4.500E-04,  5.100E-04, 
6.7006-04.  3.S00E-04,  1.100E-04. 

I. 0006-09,  0.  / 


2.9006*00,  1.8006*00. 
1 .2006-01 ,  4.800E-02. 


3  3.700E-03.  1.8006-03,  8,4006-04,  7.2096-04. 

4  4.4006-04,  4. 4006-04 

5  8.1006-04,  6.80*6-04 

6  1. 2006-05.  1 .8006-07 •  1.0006-09  .  0. 

OAT*  HMT  /34+0 

data  hoi/ 

1  5.6006-05.  5.6005-05.  5,4006-05, 

4.1006-05 


4.4006-04,  4.8006-04. 
3.800E-O4,  1 .6006-04, 


5. 100E-05, 
3.9006-05,  3.9006-05, 


4.eeoe-o5,  a-tooe-os, 

1.9006-04,  3.4006-04. 
3.4Q06-04.  9,1006-05. 
4.300E-1 1 .  0.  / 


4.0006-05, 
7. 9006-05, 


•.1006-05, 

•.toot-os. 


1.8006-04,  1.8006-14. 


4.8006-09.  4.8006-08. 

t.ctoi-os,  i.aoet-a*. 

3.1096-04.  3-4006-04. 


2  4.3096-05. 

3  4.3006-05,  4.8006-05 

4  9.0006-05,  1.4006-04 

5  3. .*006-04.  3.4006-04 
8  4.3006-03.  8. 6006-08 

DATA  U32/ 

1  8.0006-05.  8.0006-05 

a  e.eooE-05,  T.asoe-os 

3  i , 2006-04,  1.5006-04 

4  3.0006-04.  5.3006-0*.  3.4006-04,  3.8006-04. 

5  3. 3006-!*.  3.0005-04,  3,0000-04.  8.3008-05. 

8  4.3006-06,  •,eOE£-08.  4.3006-11,  0 
OAT A  *33/ 

«  8.0001-04,  9. 4006-09 

2  *.4036-05.  7. 7006-09 

3  a.em-04,  3.0001-0* 

4  4.1056-04.  4.1206*04.  4.8006-04,  4. J006-0*. 

9  3.6006-04,  3.4006-04.  1.8008-64,  8.3004-09. 

•  4, 5006-08.  «. 9006-08.  4.3006-11,  0.  / 

OAT*  HO*. 

1  4.0006-09.  8.4056*09.  8. *006-0*.  9. *906-05. 

2  7.10P6-SS.  t.900i*S9»  7.9006-49.  <• <001-04. 

3  SiiOOt-OA.  a, 1006-0*.  3.1006-0*.  3.3004-04. 
44,1026-0*.  4. 1006-4*.  3.8046-0*.  3.6016-04, 
8  3. 8006- 0*.  3. 8536*0*. 

8  4,3006-0*.  i. 6006-0*.  4.3006*11.  0. 

CAT*  «»/ 

i  o.ioat-oa.  «. iocs-09,  *.iooe-o9.  *.3voe-os, 
3  4.8C06-OS.  7,1006-05.  9.0006-09.  1.6006*0*. 

3  «.30o6-c».  *.75el-««.  *.9006-0*.  9.6051-04. 

4  8.1006-04,  •.0006-04.  5.6006-0*.  9.1006-04. 

9  3.9006-O4,  3.S006-0*.  > .9006-0*.  *-3006-05. 

•  4.3006-0*.  •.S006-0*.  4.3006*11.  0.  / 

0*7*  WO*/ 

«  9. 4006-09, S.4506-09.  9.4036-0$,  9.0006-05. 
3  4.5006-05,  4. *406-05.  9.JC06-OS.  7.1006-05. 

3  (.8006-04.  1.7006-04.  1.8006-04,  1.1006-0*. 

4  3.3C06-04,  3.5001-04.  3.8006-0* 

8  3. 6006-04.  3. 4906 "04.  3.0006-04 
«  4,0006-08*  *.8006-0*.  4.2C06-H 

OATA  *07  /3S»0.  / 

HNiXUJ+WiM  mtW*  II 1  *1  NO  4ATI0S  7JSt£*  6+8 
OAt*  HWtA  /**0.. 1.06-30. 

X  0.1, 0.31. 0.4.1. 2.1.4. (.*.(. *. 

17. «. a. 5-2, 8. 0.3. 8. 3. *.0.21.1 .06-30,5-0.0/ 

(NO 


1.4306-04,  **1006-03, 
/ 


3.8C-CE-C4. 

1.1006-04, 

0. 


8.400E-04, 

5.1006-04. 

4.300E-05, 


6.800E-01, 
7.5006-03, 
8.400E-04, 
5. 1 00E-04, 
4.3006-05, 


1.7006-00, 

1.5006-03, 

6.4006-04, 

5.1006-04, 

4.3006-05, 


4.t006-01 . 
3.5006-03, 
8.4006-04, 
5.1006-04, 
4.3006-05, 


1.1006-00, 
1.8006-02, 
6. 1006-04, 
5.3006-04, 
8.7006-05. 


4.7006- 05, 

3.8006- 09. 

4.7006- 09. 

3.8006- 0*. 
4.1006-05. 


*,4006-05. 

9.0006-05, 

3.(006-0*. 

3.8806-04, 

4.1006-09. 


4.8006- 09, 

1.8006- 04. 
3.6006-0*. 
4.3906-0*. 
4.1006-65. 


*. 0006-09, 
1.3006-04, 
3.4006-0*. 
3.3606-04, 
4.1006-09. 


4.5006-09. 

a  1006-0*. 

8.3006-0*. 
4,7006-0*. 
4. 1006-09. 


4.6906-09, 
8.0006-09. 
3.  *006-04, 

3.8006- 64. 

4.8006- 0*. 


r*fiU  IVANS 
1.8,3. 0.3.1 


5.80OE-04.MOT 

*80 

5.400E-04.MOT 

695 

1 .900E-05.NOT 

TOO 

NOT 

708 

NOT 

710 

3. 8006-01 .NOT 

715 

8. 900E-03 .NOt 

730 

5. 8006-04. NOT 

739 

5.4006-04, NOY 

730 

1.9006-05, NOT 

735 

NOT 

740 

NOT 

745 

1. 0006*00, NOT 

750 

9. 4006-03, NOT 

795 

9. 6006-04. NOT 
5. 4006-04. NOT 

760 

765 

1.8006-05  .NOT 

770 

NOT 

775 

NOT 

780 

3. 0006-01, NOT 

785 

3. 8006-03, NOT 

790 

9. 6006-04. NOT 

795 

8. 4006-04. HOT 

800 

1.8006 -OS. NOT 

SOS 

HOT 

*10 

NOT 

815 

8. 4006-01 .HOT 

630 

8. 2006-03. NOT 

•35 

5. 3006-04, NOT 

•30 

5. 7006-04  .NOT 

■35 

3. 3006-0$. NDT 

84Q 

NOT 

849 

NOT 

850 

NOT 

855 

4. 9006-03, NOT 

*60 

4. 1006-05, NOT 

*65 

6. 8006-03. NOT 

870 

3. 3006-04,  N*:-f 

1'f* 

1. 3006-03.  *S>f 

•80 

NOT 

3*9 

NOT 

599 

6. 8006-03, NOT 

8*5 

1.  1096-0*. NOT 

800 

3.4006-04,NOT 

*05 

3. 4006-04, NOT 

910 

1.3086-09. NOT 

*15 

NOT 

•19 

NOT 

*19 

*.6906-09. NOt 

•30 

J,1O0l-O*,NOT 

*15 

3, 8006-0*.  HOT 

*40 

3. *006-04. NOT 

*49 

1 ,3006-08. NOT 

MO 

MOT 

M5 

MOT 

MO 

8. *006-09, NOT 

M9 

T. 8001-04. MOT 

*70 

3. 9006-0*. NOT 

•7* 

3.CO06-««.MOT 

MO 

1 .3006-09. MOT 

8*9 

MOT 

*80 

MOT 

*85 

4.7006-05.1*)? 

<000 

3, 2006-04.  MOt 

1009 

*.3006-04, MOT 

1010 

4. 3066-04, MOt 

1015 

1. 3006-05.  MOT 

1010 

MOT 

1029 

MOT 

1030 

4, 6006-05. MOT 

1033 

1.3006-0*. MOT 

tc*0 

3.  *006-0*. MOT 

10*5 

3. *006-04. MOT 

1030 

1 . 7006-O5.M0T 

1635 

MOT 

10*0 

MOT 

10*9 

6807U6  MOT 

1970 

MOT 

1075 

,S.  3.3.C,  3>MM 

10*0 

MOT 

10*5 

MOt 

10*0 
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BLOCK  OATA  TITLE 
C»  BLOCK  DATA 

C  TITLE  INFORMATION 

COUPON  /TJTL/  HHA2E(5,15).HSEASN(5.2),HVULCN(S.5),BLAW<,VS8(9), 
X  MH£T(S.2)  .HMODEUS.8)  ,MTRRaD(6.4) 

DATA  VS8  /23. ,5. ,0. ,23. ,5. ,50. ,23. .0.2, 0.5/ 

DATA  8LANK/4H  / 

OATA  HHA2E  / 

1  4HRURA.4HL  , 4H  ,4H  .4H 

2  4MRUHA.4HL  ,4h  ,4h  . 4H  , 

3  4HNA>'Y,4H  MAR.4Hm«.4HE  .  4H 

4  4HMAR1.4HT1UE.4H  ,4H  . 4H  , 

5  4HDRBA.4HN  ,4H  . 4H  , 4H  , 

6  4HTRCP.4H0SPH.4HF,R1C.4H  ,4H 

?  4HUSER.4H  0EF.4HINE0.AH  ,4h  , 

a  4HF0G1 .4h  (AD.4HVECT,4HTI0n,4H)  , 
g  4HF0G2.4H(RA0.4H1AT1.4HQN)  ,4H 

A  4H3ACK.4HaR0U.4Hn0  S.4HTRAT.4H0 
0  4HAGED.4M  V0L.4HCAH1 .4HC  , 4H 

C  4HARES.4HH  V0.4HlCAN.4HlC  ,4H 

0  4HAQE0.4H  V0L.4HCAHi.4HC  . 4H  , 

E  4HFR53.4HH  V0.4HCANI .4HC  . 4H  . 

F  4HMETE.4H0R1C.4M  QUS.4HT  ,4M  / 

OATA  HSEASN  / 

1  4HSPR1  .4HN0-S,4HU«E.4HR  ,4H  , 

2  4HFALL.4H-MlN.4Hf ER  ,4H  ,4H  / 

OATA  MVULCM  / 

1  4H0ACK.4HGRQU.4HNO  $ . 4HTRAT . 4H0 

2  4MAGEC.4H  V0L.4HCAN1 .4HC-M0.4HOERA. 

3  4HFRES.4HH  V0.4Hl.CAN  4HlC*H,4H|H  . 

4  4MA3E0.4H  VOL . 4HQAN1 . 4HC^H1 , 4M3H  . 

3  AHFREN.  lifH  V0.4HCAMI  .4HC-M0.4M0E  **/ 
oat;.  icWST/ 

1  4HSQUM.4HAL  ,4k  ,4H  . 4H 

2  4HTRAN.4HS1T1.4H0N  .«M  ,4H  / 

OATA  IUIO0SL  / 

1  4H>«0?.4hICAL,4H  MC0.4HEL  . 4H  , 

2  4MV:OL.4HATlt,4HUOE  ,4hSUNN,AHE#  . 

J  4HV10L.4HAT1T.4MU06  .4MUtNt .4HS#  . 

4  4HSUbA.4ltARTl.4HQ  .4MSLW4.4MEC  . 

9  4MEu9A.4llA.RTl.4MC  .4«;liNT  .*MfR  , 
e  4ll  1  QUO ,4H  y  9,411  4 . 4H1.04S  4H0 

7  4H  ,  All  .An  .  4M  ,4m  , 

•  4HMS0E.«i»V  ♦0.4MHOR1.4HJONI.4HAL  / 

DATA  HfRTAy * 

1  AMfRiN.AnSMlT.AH'ANC.AM.S  .  4H  .4* 

3  4HRA0I  .4HANCI.4H  .4M  .  4H  ,«M 

3  4!l«*0i  .4ha.sCE.4h. SOL. 4H*4  J.  4HCATY  ,4*E*NG. 

4  4Hta*M.4H5A(2T.4«TES>  ,4HS0i4,4H»  1R.4HRA 0,/ 

8W 


TIT  100 
TIT  105 
TIT  110 
TIT  115 
TIT  120 
TIT  125 
TIT  130 
TIT  135 
TIT  140 
TIT  145 
TIT  150 
TIT  155 
TIT  160 
TIT  165 
TIT  170 
TIT  175 
TIT  160 
TIT  185 
TIT  190 
TIT  195 
TIT  200 
TIT  205 
TIT  210 
TIT  215 
TIT  220 
TIT  229 
TIT  230 
TIT  235 
TIT  240 
TIT  245 
TIT  250 
TIT  255 
TIT  260 
TIT  265 
T(T  270 
T  t  r  275 
nr  280 
Tit  295 
Tit  290 
TIT  295 
TIT  300 
TIT  303 
TIT  JIO 
»IT  315 
TIT  320 
TIT  « 
TIT  jSO 
TIT  335 
TIT  340 
TIT  345 


105 


c* 

c 

c 

c 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

CCC 

CCC 

CCC 

CCC 

CCC 

ccc 

ccc 

ccc 


SLOCK  OAT*  PRFQTA 
SLOCK  OAT* 

aerosol  PROFILE  OAT* 

0-2HU 

H22K.5  VIS  PROFILES-  50KM.  33KM.  10KM.5KM.2KM 
>2-9KM 

FANISO.FALL/NlNTER  sokm  vis 
FANI23.FALL/W1NTEP  23KM  VIS 
SPSUSO. SPRING/ SUMMER  SOKM  VIS 
SPSU23.SPRING/SUMWER  23K*  VIS 
>9-30KM 

BASTFN.BACKGRCUNO  stratospheric  fau/winter 
VUMOFV.MOOERaTE  volcanic  FALL/WINTER 

HIVUFV.M1GH  VOLCANIC  FALL/WINTER 

EXVUFN.EXTREME  VOLCANIC  FALL/ttINTER 

SAST  $S ,  VuMOSS  .H I  VOSS ,  EXVUSS*  SPR I NG/SUMMER 

>30- 1  OOKM 

UPNATMiNQRHAl  UPPER  ATMOSPHERIC 
VUTQNQ. TRANS! TJON  FROM  VOLCANIC  TO  NORvAL 

vutgex. transition  from  volcanic  to  extreme 

EXUPAT. EXTREME  UPPER  ATHOSPH'RIC 
COALVON/PRFO  /2HT  ( 34  )  .N22M34 ,5) .  FAt»lSO(  34)  ,  FAN123I34) ,S 
!SPSU23t34).0ASTFM(34)  .VU.MOFV134)  .HSVUFM(34)  ,EAVUFM(34)  ,# 
2VUMQSSI 34) . MlVUSSt 34 ) .EXVUSS 1 34) ,  UPHATMt  34)  ,VU7GNG(3K) . 
3VUTQEX ( 34) . EXUPAT (34 ) 


DATA  2KT/ 
0.  , 

i  .  s 

3.  . 

3. . 

4. 

9.. 

It.. 

>2. . 

!3. 

'  18., 

20.. 

3’.. 

22. 

33. . 

40.  A 

4S.  . 

30. , 

TO- 

9.  . 
'4.  . 
23.  . 


6.  . 
15.  . 
24., 


130. .09989,/ 


15. , 

35. . 


a.. 

IT.. 
30. . 


OATA  MJ?R(  t  ,!).»t23Kt  t  ,2) .  H/2K  ( 1 . 3  )  ,HI2K(  t  .  4 )  ,MI2K|  1 , 5)/ 
t  S.aiE-Oa.  I ,962-01 ,  3.T9E-01 ,  T. TOE-O I ,  t .346.00/ 

DATA  Hi/x{ 2, t ) . MJJK ( ?,2 ) .HJ3K jj,3) .Hi2N(2 .4) .h;jk(2 ,S)/ 

I  4. *51-03,  9.91E-03.  3T9E-0I,  T.TOE-Ql,  l.«4t*O0/ 

OAtA  H22KI3 , t ) .H2JKi3, 2 >  .11228(3,3)  .H22K{  3. 4)  ,M13R{J,5)/ 

»  2.aor.-92,  o.jtE-es,  e.att-os,  e.au-oa,  9.314-53/ 

DATA  f An 1 90  /3*0 1 . 

t  1.14t«03.  6.438-93.  4.8U-Q3.  3. 544-03.  3.314-03.  l.4tt-93. 
3  9.304-04.24*0./ 

0*TA  FAP123  /3»0 . , 

i  a.T?f-02.  1.308-03.  4.654-03.  3.544-03.  3.3tE-03.  t, 4)1-03. 
3  6.604-04.  34»Q./ 

DATA  SPJU&S  /  J»0. , 

l  1.464-02,  t. 024-03.  6.314-03.  t. MI-03.  S.JSt-03.  3. 3T4-OJ, 
3  1.634-03  .34.0./ 

DATA  -»PiyJ3  /  3*0.. 

\  3,444-03 ,  «. 984-03.  6.3)8-03.  T. Tit-03, 

3  l . 422 -91  , 24*4 , / 

Cat*  itiitit  /)O*0,. 

1  7.9*1-04.  7,l4f»64.  6, $46*04.  6,334-94.  6, *54-04.  6.4»|-04. 

2  R. 4)4-04.  «.«0t-«4.  6. *31-64.  4. 234-04.  3. $34-04, 

3  S.RSt-64.  J. *24-94.  «. 624-64.  1.6.91-04,  3.334-09  .T*0./ 

OAT*  VOMOFM  /*  6»9.. 

1  t. 394-0.3,  t. 294-93.  3.Jt«-3J. 

2  3.T34-S3.  I. *04 -31.  3.106-03. 

3  6,606-04,  9. *96-04,  S.lSE-04.  4.096-04, 

5*t*  <)  VUFR  /)0»0, 


6.214-03.  3.374-03. 


2.TSE-93. 

i.MF-Oj, 


2,651-03.  3.626-01, 
I.JSI-03,  l ,006-03, 
T. 6C6-OS  .»»0./ 


PRF 

too 

PUT 

103 

PRF 

110 

PRF 

115 

PRF 

120 

FRF 

125 

PRF 

130 

PRF 

133 

PRF 

MO 

PRF 

145 

PRF 

190 

PRF 

159 

PRF 

ISO 

PRF 

165 

PRF 

170 

PRF 

175 

PRF 

160 

PRF 

165 

PRF 

190 

PRF 

19S 

PRF 

200 

PRF 

205 

FRF 

210 

,  PRF 

215 

.PRF 

220 

PRF 

225 

PRF 

230 

PRF 

23S 

PRF 

240 

PRF 

245 

PRF 

250 

PRF 

235 

PRF 

360 

PRF 

269 

PRF 

270 

OR* 

279 

PRF 

260 

PRF 

2*5 

PRF 

380 

PRF 

3SS 

PRF 

300 

FRF 

305 

PRF 

310 

PRF 

315 

PRF 

330 

PRF 

13S 

per 

*30 

PRF 

315 

PRF 

340 

PRF 

3*3 

PRF 

3So 

PRF 

353 

3PF 

340 

PRF 

345 

PRF 

370 

PR  F 

375 

PRF 

3*0 

PRF 

365 

«*P 

360 

106 


1  1.71E-03,  2.31E-03,  3.25E-03, 

2  9.42E-03,  1.07E-02,  1 .1OE-02, 

3  1.48E-03,  8.90E-04,  5.80E-04, 

OATA  EXVUFW  /10*O., 

1  1 . 71 E-03,  2.31E-03,  3.25E-03, 

3  2.3SE-02,  6.10E-02,  t.OOE-OI, 

3  1.46E-03,  8.90E-04,  5.80E-04, 
DATA  BASTSS  /I 0*0., 

1  1.14E-03,  7.99E-04,  6.41E-04, 

a  3.82E-04,  4.25E-04,  5.20E-04, 

3  4.20E-04,  3.00E-04,  1.98E-04, 
DATA  VUMOSS  /I 0*0., 

1  1.85E-03,  2.12E-03,  2.4SE-03, 

2  2.73E-03,  2.46E-03,  2.10E-03, 

3  8.60E-04,  6.60E-04,  5.15E-04, 

OATA  HIVUSS  /10*0., 

1  1.85E-03,  2.12E-03,  2.45E-03, 

2  S.11E-03,  1.20E-02,  1.52E-02, 

3  4.50E-03,  2.40E-03,  1.28E-03, 

DATA  EXVUSS  /10*0.t 

1  1.85E-03,  2.12E-03,  2.45E-03, 

2  8.1  IE-03,  1.27E-02,  2.32E-0I, 

3  6.1OE-03,  2.40E-03,  1.28E-03, 

DATA  UPNA1K  /26*0., 

1  3.32E-05,  1.64E-05,  7.99E-06, 

2  9.31E-10,  0.  / 

DATA  VUTONO  /26*0., 

1  7.60E-0S,  2.45E-05,  7.99E-06, 

2  9. 31 E-1  0 ,  0.  / 

DATA  VUTOEX  /26*0., 

1  7.60E-05,  7.20E-0S,  6.95E-05, 

2  4.50E-07,  0.  / 

DATA  EXUPAT  /26*0., 

1  3.32E-05,  4.25E-05,  6.59E-05, 

2  4.50E-07,  0.  / 

END 


4.52E-03,  6.40E-03,  7.81E-03,  PRF  395 

8.60E-03,  5.10E-03,  2.70E-03,  P«F  400 

4.09E-04,  7.60E-05  ,7«0./  PRF  405 

PRF  410 

4.52E-03,  6.40E-03,  1.01E-02,  PRF  415 

4.00E-02,  9.15E-03,  3.13E-03,  PRF  420 

4.09E-04,  7.60E-05  ,7*0./  PRF  425 

PRF  430 

5.17E-04,  4,'  2E-04,  3.95E-04,  PRF  435 

5.81E-04,  5.89E-04,  5.02E-04,  PRF  440 

1.31E-04,  3.32E-05  ,7*0./  PRF  445 

PRF  450 

2.80E-03,  2.89E-03,  2.92E-03,  PRF  455 

1.71 E-03,  1.35E-03,  1 .09E-03,  PRF  460 

4.09E-04,  7.60E-05  ,7*0./  PRF  465 

PRF  470 

2.80E-03,  3.60E-03,  5.23E-03,  PRF  475 

1.53E-02,  1 . 17E-02,  7.09E-03,  PRF  480 

7.76E-04,  7.60E-05  ,7*0./  PRF  485 

PRF  490 

2.80E-03,  3.60E-03,  5.23E-03,  PRF  495 

4.850-02,  1 . 0QE-01 ,  5.60E-02,  PRF  500 

7.76E-04,  7.60E-05  ,7*0./  PRF  505 

PRF  510 

4.01E-06,  2. 1 OE-06,  1.60E-07,  PRF  515 

PRF  520 
PRF  525 

4.0 IE-06,  2.10E-06,  1.60E-07,  PRF  530 

PRF  535 
PRF  540 

6.60E-05,  5.04E-05,  1.03E-05,  PRF  545 

PRF  550 
PRF  555 

6.60E-05,  5.04E-05,  1.03E-06,  PRF  560 

PRF  565 
PRF  570 


c» 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

c 

c 

c 

c 

c 

c 

c 

c 


BLOCK  oat*  extota 
BLOCK  data 

ALTITUDE  REGIONS  FOR  AEROSOL  EXTINCTION  COEFFICIENTS 


e-;t 

EXT 
EXT 
EXT 
EXT 
F.XT 

0-2KM  EXT 

RUREXTaRURAL  EXTINCTION  RURABSaRURAL  ABSORPTION  EXT 

URBEXTaURSAN  EXTINCTION  URBABSaURBAN  ABSORPTION  EXT 

OCNEXTaMARITIME  EXTINCTION  QCNABS'MARITIME  ABSORPTION  EXT 
TROEXT*TROPSPNER  EXTINCTION  TROABSaTROPOSPHER  ABSORPTION  EXT 
FQ1 EXTaFOGI  .  2HM  VIS  EXTINCTION  FQ1 ABSaFOQI  ABSORPTION  EXT 
FQ2EXTaFOQ2  . SKM  VIS  EXTINCTION  FG2ABS»F0G2  ABSORPTION  EXT 
>2-9KM  EXT 

TROEXTaTROPOSPHER  EXTINCTION  TROABSaTRQPOSPHER  ABSQRPTIONEXT 


>9-30KM 

BSTEXTaBACKGROUND  STRATOSPHERIC  EXTINCTION 
BST ABS* BACKGROUND  STRATOSPHERIC  ABSORPTION 
AVOEXTaAGED  VOLCANIC  EXTINCTION 
AVOABSaAGED  VOLCANIC  ABSORPTION 
FVOEXTaFRESH  VOLCANIC  EXTINCTION 
FVOABSaFRESH  VOLCANIC  ABSORPTION 
>30-1  OOKM 

DMEEXTaMETEORIC  OUST  EXTINCTION 
DMEABSaMETEORlC  OUST  ABSORPTION 

AEROSOL  EXTINCTION  AND  ABSORB  ION  DATA 

COMMON  /EXTO  /VX2(40) *RUfl£XT{40, 4 ) . PURA8S(40, 4) ,URBEXT(40 ,4) , 
1URBABS(40,4) ,0CNEXT(40 . 4) ,OCNABS(40 . 4) , TROEXT(40.4) , TR0A8S(40.4) . 
2FQ1EXT(40)  ,FG1ABS(40I  , FG2EXT (40) , FG2A0S( 40) , 

3  BSTEXT(40) , BST  ABS(40 ) ( AVOfcXT (40) , AV0A0S(40) . FV0EXT(40) 
4),FVOABS(40).0N6EXT(4O) ,0MEABS(40) 

COMMON  /EXTD  /  VX2(4O).RURE'.(40),RURE2(40).RURE3(40),PURE4(40)i 
X  RURA1 (40) , RURA2 ( 40 ) . RURA3 ( A 0 ) , RURA4 ( 40 ) , 

X  URBE1(40).URBE2(40) ,URBE3(40) ,UR0E4(40) . 

X  UHBA!(40),URBA?(40),unUA3(40),URBA4(40) , 

X  OCNE1(40),OCNE2l40),OCNE3(40) ,OCNE4(40). 

X  OCNA1140),OCNA2(40) ,OCNA3(  40) ,  0C»*A4  (40 ) , 

X  TROEt (40) , TR0E2 (40),TR0E3(40) , TR0E4{40) , 

X  TR0A1 (40) ,TROA2(40) , TR0A3 ( 40) , TR0A4 (40 ) , 

2FG1EXf(40) , FG1 AUSf  40 1  *02RXT(40) .FG2AaS(40) . 

3  8STEXT(4Q).BS1ABS  0 ),  AVOF.XT  ( 40) .  AVOA0S14O)  ,FVOEXT(40)  . 


4  FV0A8S(40),0UGEXT 
DATA  VK2  / 


),t~  .465(40) 


EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

exT 

EXT 


100 

10B 

IK 

115 

1F0 

125 

130 

135 

140 

145 

150 

155 

ISO 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

239 

240 
245 
250 
255 
260 
265 
270 
275 
280 
2B5 
290 
295 
300 
305 
310 

319 

320 


.2000. 

,3000.  .3371,  .5500. 

.6943, 

1 .0600, 

1.5360, 

EXT 

325 

2.0000. 

2.2500,  2.5000,  2.7000, 

3.0000. 

3.3923, 

3.7500. 

EXT 

330 

4.5000. 

5.0COO,  5.5000.  6.0000. 

8.2000. 

6. 5000. 

7.2000. 

EXT 

335 

7.9000. 

8.2000,  8.7000.  9.0000. 

9.2000. 

10.0000, 

10.5910, 

EXT 

340 

11 .0000, 

11.5000,  13.5000,  14.8000, 

15.0000, 

16.4000, 

17,2000. 

EXT 

345 

18.5000. 

31.3000,  25.0000,  30.0000. 

40.0000/ 

EXT 

380 

DATA  RUREI 

/ 

EXT 

358 

1 

2.O9201 , 

1.74582,  1.60500.  1.00000, 

.75203. 

.41943, 

.24070, 

EXT 

360 

3 

.1*709, 

.13304.  .12334.  .13347, 

.11196, 

.10437, 

.09956. 

EXT 

365 

3 

.09190, 

.08449,  .07001,  .07035. 

.07089. 

.07186, 

.07791 . 

EXT 

370 

4 

,04481 . 

.04399,  .13194.  .I26SB. 

•  <  2629, 

.02152, 

.06076. 

EXT 

375 

5 

.074J6. 

.08000.  .00032,  .04849. 

.05654, 

.04304/ 

.06000. 

.06962. 

EXT 

390 

6 

.05722, 

.08051.  .00177.  .04589. 

EXT 

365 

DATA  RURE2  / 

txt 

360 

1 03 


1 

3.09544, 

1 .74165, 

1.89981, 

1 .00000, 

.75318, 

.42171, 

.34333, 

EXT 

395 

a 

.15100, 

.09475, 

.13608, 

.12430, 

.13223, 

.13823, 

.07797, 

.11078, 

.10333, 

EXT 

400 

3 

.08728, 

.08078, 

.07639. 

.07576, 

.07943, 

EXT 

405 

4 

.04899, 

.04526, 

.12165, 

.12741, 

.12778, 

•06646, 

.09032, 

.07963, 

EXT 

410 

S 

.07380, 

*06080 , 

.06329, 

.05791, 

.06639, 

.07443, 

EXT 

415 

6 

.06304, 

.06443, 

.05538, 

.04867, 

.04519/ 

EXT 

430 

OAT*  RURE3  / 

EXT 

425 

t 

3.07082, 

1 .71456, 

1 .57982, 

1.00000, 

•76095, 

.43228, 

.35348, 

EXT 

430 

a 

.16456, 

.14677, 

.09709, 

.13234, 

.13405, 

.09380, 

.20318, 

.12873, 

.11506, 

EXT 

435 

3 

.10481, 

.08918, 

.09709, 

.08791, 

.08601, 

EXT 

440 

4 

.06247. 

.06601 . 

.11905, 

.12595, 

.12348, 

.08741, 

.07703, 

EXT 

445 

S 

.07266, 

.07044, 

.07443, 

.08146, 

.08810, 

.08563, 

.08963, 

EXT 

450 

6 

.08051 . 

.07877, 

.06658, 

.05747, 

.05184/ 

EXT 

455 

DATA  RURE4 

/ 

EXT 

460 

1 

1 .66078, 

1.47686, 

1 .40139, 

1.00000, 

.80652, 

.60599, 

.32259, 

EXT 

465 

a 

.23468, 

.20772, 

.18532, 

.17348. 

>35114, 

.20006, 

.17386, 

EXT 

470 

3 

.16139, 

.15424, 

.14557, 

.16215, 

.16786, 

.14994, 

.14032, 

EXT 

475 

4 

.12968, 

. 1260t , 

.13561 , 

.13582, 

.13228, 

.11070, 

.09994, 

EXT 

460 

S 

.09873, 

.10418, 

.13241 , 

.15934, 

.16139, 

.15949, 

.15778, 

EXT 

485 

6 

.15184, 

.13848, 

.12563, 

.11076, 

•09001/ 

EXT 

490 

DATA  RURA1 

/ 

EXT 

405 

t 

.87198, 

.11937, 

.08506, 

.05930, 

.05152. 

.05816, 

.05006, 

EXT 

500 

a 

.01968, 

.03070, 

.02101, 

.0565a, 

.02785, 

.01316, 

.00867, 

EXT 

508 

3 

.01462, 

.01310, 

.01627, 

.02013, 

.02165, 

.02367, 

.03538, 

EXT 

510 

4 

.02823, 

.03962, 

.06/78, 

.07285, 

.08120, 

.04032, 

.03177, 

EXT 

515 

6 

.02557, 

.02342. 

.02177, 

.03627, 

.03943, 

.03114, 

.03896, 

EXT 

520 

6 

.02956, 

.03500, 

.03241 . 

.03397, 

.03380/ 

EXT 

529 

DATA  RURA3 

/ 

EXT 

530 

t 

.62968, 

.10816, 

.07671, 

.05380, 

.04684, 

.05336, 

.04614, 

EXT 

535 

a 

.01829, 

.01699, 

.01962, 

.05525, 

.06816, 

.01552, 

.00867, 

EXT 

5T0 

3 

.0154.1, 

.*13/3, 

,01327, 

.0AB.J4, 

.02829. 

.02532, 

.03487, 

.03347, 

EXT 

545 

4 

.02835, 

.03854, 

.06684, 

.07273, 

.08036, 

.03987, 

EXT 

550 

S 

.oaaie, 

.03734. 

.03816. 

.03101 , 

.03741 , 

.04829, 

.04032, 

.04399, 

EXT 

355 

6 

.03956, 

.03601 , 

.03525, 

.03563/ 

EXT 

500 

DATA  HURA3  / 

EXT 

689 

1 

.5<B99, 

.08378. 

.05818, 

.04092, 

.03570, 

.04196, 

.03620, 

EXT 

570 

a 

.01513. 

.01461 , 

.01633, 

.08378, 

.04816, 

.13890, 

.02494, 

.00886, 

EXT 

576 

3 

,01804. 

.01582, 

.01677, 

.04367, 

.03013, 

.03443. 

EXT 

560 

4 

.02930, 

.03677, 

.08209, 

.06911, 

.07475, 

.06037, 

.03893, 

.03494, 

EXT 

565 

8 

.03513, 

.03858. 

.05152, 

.06241, 

.06303, 

.06316, 

EXT 

9S9 

3 

.05814, 

.05209. 

.04608, 

.04108, 

.04095/ 

!XT 

565 

DATA  RURA4 

/ 

SXT 

600 

1 

, 21943, 

.02848, 

.01943, 

.01343, 

.01171, 

.01437, 

.01333, 

EXT 

005 

a 

.01152, 

.00898, 

.01329, 

.06198, 

•  24690, 

.05333, 

U1430, 

EXT 

610 

3 

.03361. 

.02949, 

.02652, 

.00437, 

.08508, 

.35S4B, 

,04637, 

EXT 

•15 

4 

.04300, 

.04557, 

.05380, 

.05715, 

.05899, 

.04661. 

.05293, 

EXT 

•20 

$ 

.00171, 

.07437, 

.10152, 

.13010, 

.12190, 

.11734, 

.11411, 

EXT 

•25 

0 

,10768. 

.09487, 

.08430, 

.07348. 

.06861/ 

EXT 

•30 

data  uaaEi 

/ 

EXT 

•35 

t 

1.08818. 

1.63318, 

1.51807, 

1.00000, 

.777B5, 

.47095, 

.30005, 

EXT 

640 

a 

.21392. 

,  19405, 

.17886, 

.18137, 

.18133, 

.14765, 

.10361, 

.14000, 

EXT 

•46 

3 

.12715, 

.11000, 

.11334, 

.10601, 

.10500. 

.10343. 

EXT 

•50 

4 

.00760, 

.01652, 

.11937, 

.13130. 

.12297. 

.00707, 

.00057, 

EXT 

055 

• 

.08903. 

.08198, 

.07563, 

.08896, 

.07209, 

.04051/ 

.08843, 

.07177, 

EXT 

080 

4 

.06334, 

.08177, 

.05373. 

.04738, 

EXT 

•as 

DATA  URBU 

/ 

EXT 

•TO 

1 

l . 2)502, 

1.84004, 

1.61070, 

1.00000, 

.77814, 

.46636, 

.20487, 

EXT 

•75 

a 

,21091, 

.18043. 

►17305, 

.17200. 

.21416, 

.15354. 

.14051, 

EXT 

•00 

3 

.12738, 

.11881. 

.11089, 

.11330, 

.11333, 

.10589. 

.10347, 

EXT 

Ul 

4 

.08696, 

.06361 , 

.12013, 

.12419, 

.12304, 

.09614, 

.08842, 

EXT 

690 

5 

.08487, 

08235, 

.08361, 

.08430, 

.08680, 

.08449, 

.08601 , 

EXT 

695 

6 

.07835, 

.07323, 

.06367, 

.05500, 

.04747/ 

EXT 

700 

DATA  URBE3  / 

EXT 

705 

1 

t. 96430, 

1.64032, 

1.52392, 

1.00000, 

.77709, 

.40253, 

.28690, 

EXT 

710 

2 

•20J10, 

.17981. 

.16101 , 

.15614, 

.26475, 

.16456, 

.13563, 

.09766, 

EXT 

715 

3 

.12215, 

.11361 , 

.10500, 

.11715, 

.11753, 

.10392, 

.08703, 

EXT 

720 

4 

.06443, 

.08057, 

.10943, 

.11342, 

.11063, 

.08025, 

EXT 

725 

5 

.07888, 

.08032. 

,09101 , 
.07152, 

.10070, 

.10386, 

.09943, 

.09886, 

EXT 

730 

6 

.09152, 

.08247, 

.06089, 

.05253/ 

EXT 

735 

DATA  URBE4  / 

EXT 

740 

1 

1.41266, 

1 .33816, 

1.29114, 

1  .00000, 

.83646, 

.55025, 

.35342, 

EXT 

745 

2 

.25285, 

.21576, 

.18310, 

.16215, 

.37854, 

.20494, 

.16685, 

EXT 

760 

4 

.14778, 

.13892, 

.12943, 

.15525, 

.15709, 

.13513, 

.12481 , 

EXT 

755 

4 

■  .11759, 

.11494, 

.11487, 

.11329, 

.11108, 

.09911, 

.09209, 

EXT 

760 

6 

.00342, 

.10120, 

.13177, 

.15696, 

.15768, 

.09101/ 

.15513, 

.15203, 

EXT 

785 

6 

.14532, 

.13036, 

.11785, 

.10411, 

EXT 

770 

DATA  URBA1 

/ 

EXT 

775 

1 

.784-7, 

.58975, 

.54285, 

.36184, 

.29222, 

.20886, 

.15658, 

EXT 

780 

2 

.12329, 

.11462, 

.10747, 

.11797, 

.10025, 

.08759, 

.08184, 

EXT 

785 

3 

.07506. 

.07006, 

.06741 , 

.06601 , 

.06544, 

.06449, 

.06685, 

EXT 

790 

4 

.0627  8, 

.06949, 

.07316, 

.07462, 

.08101 , 

.05753, 

.05272, 

EXT 

795 

3 

,04899, 

.04734, 

.04494, 

.04443, 

.05133, 

.04348, 

.04443, 

EXT 

800 

6 

.03994, 

.03981, 

.03633, 

.03488, 

.03148/ 

EXT 

805 

OATA  URBA2 

/ 

EXT 

810 

1 

.69032, 

.49367, 

.45165, 

.29741 , 

.24070, 

.t?399, 

.13148, 

EXT 

815 

2 

.10354, 

.09589, 

.09025, 

.10411, 

.15101, 

.07880, 

.06949, 

EXT 

820 

3 

.06570, 

.06095, 

.05829, 

.07171 , 

.06797, 

.05975, 

.06013, 

EXT 

825 

4 

.05509. 

.06051 , 

.07139, 

.07494, 

.07956, 

.05525, 

.05184, 

.08019, 

EXT 

830 

S 

.05089, 

.05291, 

.05886, 

.06380, 

.06880, 

.06127, 

EXT 

835 

6 

.05525, 

.05070, 

.04500, 

.04076, 

.03741/ 

EXT 

840 

DATA  URBA3  / 

EXT 

845 

1 

.54848, 

.37101 , 

.33734, 

.21949, 

.17785, 

.12988, 

.09894, 

EXT 

950 

2 

.07804, 

.07165, 

.06791, 

.08563, 

.19839, 

.06722, 

.05316, 

EXT 

855 

3 

.05316, 

.04734, 

.04886, 

.04620, 

.07570, 

.06899, 

.06854, 

.03291, 

.05101 , 

EXT 

850 

4 

.05025, 

.06171 , 

.06570, 

.04892, 

.04797, 

EXT 

865 

5 

.05057, 

.05655, 

.07127, 

28093 ■ 

.08411, 

.04171/ 

.07726, 

.07475, 

EXT 

870 

e 

.96888, 

.060  9, 

"222, 

.04538, 

EXT 

875 

DATA  JR0A4 

/ 

EXT 

880 

1 

,15975, 

.10000, 

.09013, 

.05785, 

.04871, 

.03424, 

.02633, 

EXT 

685 

2 

.02525, 

.01973, 

.02354, 

,06241 , 

.26690, 

.05610, 

.02265, 

EXT 

890 

3 

.038)0, 

.04392. 

.03386, 

.03044, 

.09627 , 

.08557. 

,09403, 

.04684, 

.04376, 

EXT 

895 

4 

.04424, 

.04671, 

,04791, 

.04861, 

.05177, 

EXT 

900 

S 

.06158, 

.07478, 

1CJ42, 

.12146. 

.12177, 

.11734, 

.11335, 

EXT 

609 

6 

.10608, 

.or  i, 

.08033, 

.06968, 

.06475/ 

EXT 

910 

DATA  OCNE1 

/ 

EXT 

915 

1 

1.4.576, 

1.32314, 

1,26171, 

1.00000, 

.66133, 

•702J7, 

.65487, 

EXT 

920 

2 

.48008. 

.42044, 

.38310, 

.35076. 

•42266, 

■32276. 

.28610, 

(XT 

925 

3 

.24909, 

.21184, 

.16734, 

.14791, 

.21*32, 

. t8078, 

.15057, 

EXT 

930 

t 

.10039, 

,i0703, 

, 1SO70 , 

.16666, 

.14639, 

.10226, 

,06367, 

EXT 

935 

8 

.07373, 

.06829, 

.06044, 

.01*73, 

.04962, 

.06156, 

.07703, 

(XT 

940 

e 

.07234, 

.08297, 

.C343! , 

.05329, 

.06741/ 

EXT 

945 

DAT*  0UNE2 

/ 

TXT 

950 

* 

1.33924, 

1.28443, 

1.20836, 

1.00000. 

.91367, 

.TT08C. 

.64967, 

EXT 

959 

a 

.34886, 

.86247, 

.43033, 

.36209, 

.60639, 

.■'.3766, 

08076, 

(XT 

960 

a 

.31358, 

.27476 , 

.22219, 

.21019, 

.27570, 

.21057, 

.16646, 

.09759, 

(XT 

90S 

4 

.14209, 

.142'5, 

.16956, 

.17062, 

■16028, 

11863, 

(XT 

9T0 

8 

.09219, 

.13608. 

.09373, 

,10832, 

.12070, 

.liOCO, 

.13693, 

.•4261, 

•XT 

676 

8 

.11476, 

,09638, 

. 062*1, 

.1*346/ 

EXT 

960 

110 


DATA  0CNE3  / 
t  1.22359,  1 *14627 , 

2  .72930,  .68582, 

3  .49551,  .44671, 

4  .26437,  .25228, 

6  .15373,  .16791, 

6  .27810,  .23867, 

OATA  0CNE4  / 

1  1.09133,  1.06601, 

2  ,93671,  .92667, 

3  .85797,  .82595, 

4  .62722,  ,60228, 

5  .35899,  .37316, 

6  .60000,  .55392, 

OATA  0CNA1  / 

1  .30987,  .04354, 

2  .00816,  .01146, 

3  .00500,  .00601, 

4  .01671,  .02538, 

5  .01152,  .01082, 

6  .03741,  .03804, 

OATA  0CNA2  / 

1  .23367,  .03127, 

2  .00937,  .00911. 

3  .02057,  .01816, 

4  .03190,  .03766, 

6  .04329,  .05424, 

6  .09551,  .08241, 

OATA  0CNA3  / 

1  .13025,  .01557, 

2  .01335,  .00728, 

3  .05114,  .04342, 

4  .06589,  .06791. 

5  .09899,  .12481, 

6  .20335,  .17278, 

OATA  0CNA4  / 

1  .03506,  .00323, 

2  .03082.  .01101. 

3  ,12886,  .11215, 

4  .15956,  .15842, 

5  ,21709,  .25652, 

6  .39025,  .35468, 

OATA  TR0E1  / 

1  3.21222,  1.82753. 

2  .05165,  .03801, 

3  .01032,  .00618. 

4  .01494,  .02418, 

5  .00937,  .00881, 

5  .01114,  .01297. 

OATA  TH0S2  / 

1  2.21519,  1.62260, 

2  .05475.  .04044. 

3  .01127,  .00996, 

4  .01475,  ,02285, 

B  ,01101,  .01120. 

6  .01513,  ,01557, 

OATA  TB0E3  / 

1  2.19082,  1.79482. 

2  .08488.  .04850, 


1.11342,  1.00000, 
.62165,  .49962, 

.37866,  .35924, 

.24905,  .23975, 

.22361,  .26348, 

.20209,  .16430, 

1.05620,  1.00000, 
.90411,  .80253, 

.76747,  .88646, 

.56335,  .53728, 

.46854,  .58234, 

.50367,  ,43576. 

.02880,  .01797, 

.01677,  .03310, 

.00753,  .01595, 

,03481,  .03405, 

.01070,  .01563, 

.03759,  .04209, 

.02070,  .01297, 

.01576,  .05576, 

.01665,  .08025, 

,04532,  .04544, 

.07823,  .09728, 

.07158,  ,06506, 

.01013,  .00646, 

.01810,  .09635, 

.03709,  .17456, 

.07247,  .07329, 

.17867,  .32019, 

.14677,  .12171, 

.00215,  .00139, 

.03741,  .20101. 

.09684,  .33910, 

,15405,  .15968. 

.33222,  .39639, 

.32006,  .27716, 

1,67032.  1.00000, 
,02*94,  .04871, 

.00861,  .00994, 

.03165,  .03386, 

.00623,  .01139, 

.01268.  .01418. 

1.66557,  1.00000, 
.03082,  ,04820. 

.00886,  .01449, 

.03216,  .03494, 

.01297,  .01753, 

.01456,  .01532, 

1.64458,  1.00000. 
.03399.  .04638. 


.94766, 

.87538, 

.67949, 

.66468, 

.43367, 

.37019, 

.22766, 

.17804, 

.28677, 

.14943/ 

.29083, 

.97506, 

.94791, 

.09222, 

.94462, 

.78209, 

.75266, 

.51861 , 

.43449, 

.58690, 

.35949/ 

.60348, 

.01468, 

.01766, 

.03380, 

.00715, 

.02943, 

.00994, 

.03601, 

.01608, 

.02063, 

.07892/ 

.03171, 

.01063, 

.01289, 

.23467, 

.03949, 

.06044, 

.03677, 

.04715, 

.03405, 

.10057, 

.09203/ 

.10247, 

.00532, 

.00665, 

.37329, 

.09703, 

.16468, 

.08785. 

.07449, 

.22228, 

.12430/ 

.07029, 

.22051 , 

.00114, 

.47608, 

.00171, 

.21165, 

.31778, 

.20513, 

.16051 , 
.39654, 
.25348/ 

.16506, 

.40297, 

.72424, 

.35272. 

.02462, 

.01339, 

.01057, 

.01139, 

.04247, 

.01601 , 

.01924, 

.01487/ 

.01234, 

.72525, 

. 354BI , 

.05272. 

.01667, 

.01399, 

.01228. 

.04265, 

.01653, 

.02468, 

.01562/ 

,01741, 

.73297, 

.36443, 

.11693, 

.02838. 

EXT  988 
.80418,  EXT  869 

.59253,  EXT  996 

.30842,  EXT  1000 

.15318,  EXT  1005 

.29038,  EXT  1010 

EXT  1015 
EXT  1020 
.94203,  EXT  1025 

.92148,  EXT  1030 

.68658,  EXT  1035 

.37196,  EXT  1040 

.60563,  EXT  1045 

EXT  1050 
EXT  1055 
.01562,  EXT  1060 

.00443,  EXT  1065 

.01367,  EXT  1070 

.01310,  EXT  1079 

.03610,  EXT  1060 

EXT  1035 
EXT  1090 
.01190,  EXT  1095 

.00905,  EXT  1100 

.03139,  EXT  1105 

.03614,  EXT  1110 

.10222,  EXT  1115 

EXT  1120 
EXT  1125 
.00722,  EXT  1130 

.01969,  EXT  1135 

.06690,  EXT  1140 

.07962,  EXT  1145 

.21585,  EXT  1150 

EXT  1155 
EXT  1160 
.00532.  EXT  1165 

.05234,  EXT  1170 

.16658.  EXT  1175 

•1B323,  EXT  1160 

.40025,  EXT  1185 

EXT  1190 
EXT  1195 
.15234,  EXT  1200 

.01146,  EXT  1205 

.01747.  eXT  1210 

.01216,  EXT  1218 

,01349,  EXT  1220 

EXT  1225 
EXT  1230 
.15449.  EXT  1235 

.01265,  EXT  1240 

.01726,  EXT  1245 

.01304,  EXT  1250 

.01766.  EXT  1255 

EXT  1260 
EXT  1285 
.16278,  EXT  1270 

.01646,  EXT  1278 
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3 

.01306, 

.01076, 

.00968, 

.02551. 

.02222, 

.01468, 

.01690, 

EXT 

1280 

4 

.01437, 

.01994, 

.03127, 

.03513, 

.04076, 

.01722, 

.01513, 

EXT 

1285 

S 

.01519, 

.01791 , 

.02538, 

.03272, 

.03816, 

.03038, 

.02886, 

EXT 

1290 

e 

1 .02551, 

.02228, 

.01937, 

.01804, 

.01791/ 

EXT 

1295 

OAT A  TA0E4  / 

EXT 

1300 

1 

1.75696, 

1.64829, 

1.45482, 

1 .00000, 

.77816, 

.43139, 

.21776, 

EXT 

1305 

2 

.11319, 

.08101, 

.05506, 

.04943, 

.25291 , 

.06616, 

.03703, 

EXT 

1310 

3 

.02601. 

.01966, 

.01468, 

.04982, 

.04247, 

.02234, 

.01797, 

EXT 

1315 

4 

.01532, 

.01633, 

.02259. 

.02487, 

■02595, 

.01728, 

.01892, 

EXT 

1320 

S 

.02399, 

.03247, 

.05285, 

.06462, 

.06608, 

.06930, 

.05525, 

EXT 

1326 

6 

.04861, 

.03753, 

.02968, 

.02348, 

.02165/ 

EXT 

1330 

DATA  TROA1  / 

EXT 

1335 

1 

.69671 , 

.09905, 

.06563, 

.04101 , 

.03354, 

.03627, 

,02810, 

EXT 

1340 

2 

.00873. 

.00918, 

.00930, 

.03215, 

.01285, 

.00513, 

.00316. 

EXT 

1345 

3 

.00557, 

.00494, 

.00646, 

.00867, 

.00937, 

.01025, 

.01646, 

EXT 

1350 

4 

.01481, 

.02418, 

.02886, 

.03070, 

.04032, 

.01494, 

.01139, 

EXT 

1355 

5 

.00873, 

.00816, 

.00797, 

.01133, 

.01911 , 

.01215, 

.01329, 

EXT 

136Q 

6 

.01101, 

.01291 , 

.01266, 

.01418, 

•  0148T/ 

EXT 

1365 

DATA  TROA3  / 

EXT 

1370 

1 

.65000, 

.06791 , 

.05816, 

.03652, 

.02994, 

.03278, 

.02557, 

EXT 

1375 

2 

.00810, 

.00642. 

.00667, 

.03139, 

.03949, 

.00646, 

.00316, 

EXT 

1360 

3 

.00595, 

.00519, 

.00646, 

.01304, 

.01247, 

.01095, 

.01620, 

EXT 

1385 

4 

.01449, 

.02276, 

.02933, 

.03164, 

.04063, 

.01544, 

.01234, 

EXT 

1390 

3 

.01044, 

.01076, 

.01272, 

.01741 , 

.02462, 

.01722, 

.01747, 

EXT 

1395 

0 

.01506, 

.01551 , 

.01456, 

.01532, 

.01582/ 

EXT 

1400 

OATA  TR0A3  / 

EXT 

1405 

1 

.52804, 

.06367, 

.04158, 

.02533, 

.02184, 

.02443, 

.01937, 

EXT 

1410 

2 

.00858, 

.00646, 

.00709, 

.02949, 

.10013, 

.00968, 

.00310, 

EXT 

1415 

3 

.00677, 

.00582, 

.00646, 

.02361 , 

.01994, 

.01266, 

.01544, 

EXT 

1420 

4 

.01386, 

.01968, 

.02848, 

.03203, 

.03854, 

.01620, 

.01449, 

EXT 

1425 

5 

,01462, 

.01747, 

.02513. 

.03253, 

.03797. 

.03019, 

.02661, 

EXT 

1430 

6 

.02538, 

.02215, 

,01930, 

.01797, 

.01791/ 

EXT 

1435 

DATA  TRQA4  / 

EXT 

1440 

t 

.19829, 

.01642. 

.01215, 

.00791 , 

.00885, 

.00776, 

.00653, 

EXT 

1445 

2 

.00361 , 

.00293, 

.00399, 

.02570, 

.20690. 

.01715, 

.00316, 

EXT 

1450 

3 

.00873, 

.00728, 

.00658, 

.04461 , 

.03525, 

.01846. 

.01405, 

EXT 

1455 

4 

.01310, 

.01466, 

.01958, 

.02)84, 

•02307, 

.01609, 

.01816, 

EXT 

1460 

S 

.02342, 

.03203, 

.05234, 

.06399. 

,06538, 

.05667, 

,05456, 

EXT 

1465 

6 

.04810, 

.03713. 

.02949, 

.02335. 

.02158/ 

EXT 

1470 

OATA  FOIEXT  / 

EXT 

1475 

1 

.98519, 

.99168, 

.99089, 

1.00000, 

1.00578, 

1 .01747 , 

1.03177, 

EXT 

148Q 

2 

1,04146. 

1.04898, 

1.03323, 

1.05886, 

1.048B9, 

1.06633, 

1.07804, 

EXT 

1465 

3 

1.09273, 

1.10367, 

1.11684, 

1.10430. 

1.11307, 

1.12899, 

1.14997, 

EXT 

1490 

4 

1.17209, 

1.16378, 

1.20133, 

1.21266, 

1.21949, 

1.22677, 

1.15389, 

EXT 

1495 

S 

1.09684. 

.96291 , 

1.01130. 

1.10911. 

1.11462, 

1.14671, 

1.16347, 

EXT 

1500 

6 

1,18544, 

1.21382, 

1.24814, 

1.26642, 

1.20500/ 

EXT 

1505 

OATA  FQ1A8S  / 

EXT 

1510 

1 

.00013, 

0.00000, 

0.00000. 

0.00000, 

0.00009, 

.00095, 

.01513, 

EXT 

1515 

2 

.10881, 

.03892. 

.13372. 

.47133, 

,49696, 

.45789. 

.17919, 

EXT 

1520 

3 

.37373, 

.34601  . 

.31867, 

.55190. 

.55025, 

.48987, 

.46343. 

EXT 

1535 

4 

.49943, 

.45918, 

,46089, 

.46241 , 

.46385, 

,47193, 

.40905, 

EXT 

1630 

6 

.51486, 

.33101, 

,33286, 

.58665, 

.50899, 

.60387, 

.61159, 

EXT 

1535 

• 

.63335, 

.64120, 

,65627, 

.68278, 

.66393/ 

EXT 

1540 

DATA  FOIEXT  / 

EXT 

1545 

1 

.94791, 

.98315, 

.97063, 

1.08000, 

1.00937. 

1.05177, 

1.12519, 

EXT 

1550 

2 

1.29570, 

1.39303. 

1.41 130. 

1.04715, 

t. 10816, 

1.43285, 

1.46373, 

EXT 

1555 

3 

1.13709. 

1.04367, 

.82354, 

.71747, 

.93405, 

.79343. 

.60388, 

EAT 

1560 

4  ' 

.47677, 

.43171 , 

,30734, 

.33359, 

.31164, 

. 24139, 

.31801, 

EXT 

ISC9 

9 

.24006, 

.38*18, 

.42671, 

.06881. 

.67306. 

.56089, 

.871*5. 

EXT 

1870 

112 


6 

.84347, 

.43981 , 

.34475, 

.34905, 

DATA  FG2ABS  / 

1 

O.OOOOO,  0 

.00000, 

0.00000, 

0.00000, 

3 

.01967, 

.ooeao, 

.02323, 

.17309, 

3 

.09639, 

.08000, 

.06582, 

.34589, 

4 

.11816, 

.11627, 

.11519, 

.11538, 

S 

.16633, 

.34057, 

.35411, 

.44886, 

6 

.41778, 

.34430, 

.27823, 

.31063, 

DATA  BSTEXT  / 

1 

1.48671,  1 

.88462, 

1.51506, 

1.00000, 

3 

.04184, 

.03736, 

.01848, 

.01335, 

3 

.04788, 

.04276, 

.05810, 

.05367, 

4 

.11867, 

.14709, 

.12734, 

.09391. 

5 

.05734, 

.03576, 

.01975, 

.01893, 

e 

.01715, 

.01630, 

.00835, 

.00633, 

data  bstabs  / 

1 

0.00000,  0 

.00000, 

0.00000, 

0.00000, 

a 

.00127, 

.00156, 

,00291 , 

.00405, 

3 

.04519, 

.04133, 

.05703, 

.05266, 

4 

.11816, 

.14633, 

.12639, 

.09215, 

5 

.05709, 

.03551 , 

.01962, 

.01893, 

3 

.01709, 

.01620, 

.00635, 

.00633, 

data  avoext 

/ 

1 

1. 14880,  1 

.19171, 

1.18013, 

i.ooooo, 

a 

.14551, 

.11070, 

.08833, 

.07184, 

3 

.03095, 

.01538, 

.01266, 

.01019, 

4 

.01791 . 

.03378, 

.03918, 

.03108, 

5 

.02773, 

.02475, 

.01715, 

.01563, 

6 

.01773, 

.01076, 

.01051 , 

.01133, 

data  avoabs  / 

1 

.44816, 

.11359, 

.08500, 

.05373, 

3 

.01019, 

.00867, 

.00842, 

.00893, 

3 

.00318, 

.00333, 

.00399, 

.00449, 

4 

.0165a. 

.02177, 

.03437. 

.03506, 

5 

.0a513, 

.02385, 

.01620, 

.01533, 

B 

.01741 , 

.01057, 

.01038, 

.01137, 

DAT/  FVOEXT 

/ 

1 

.88715, 

.82533, 

.94013. 

1 .ooooo, 

a 

.88677, 

.82538, 

.78361, 

.71863, 

3 

.45223. 

.37646, 

.32318, 

.35519, 

4 

.14491, 

.14153, 

.37639. 

.44551, 

g 

.33551, 

.37519. 

.18738, 

.10837, 

c 

.13127, 

.10108, 

.08557, 

.08411, 

OATA  fvoabs  / 

t 

.41883, 

.33393. 

.19108, 

.14468, 

a 

.04943, 

,04387. 

,0434a. 

.04399. 

3 

.01934, 

.01981 , 

.03397, 

.03478, 

4 

.07133. 

.08816. 

.15343, 

.18508, 

5 

.18101, 

.13759, 

.00456, 

.08886. 

6 

.08785. 

.06032, 

.08747. 

.08133. 

S 

-* 

»■ 

1 

m 

-41 

/ 

1 

1.05019,  1 

.08880, 

1 ,05289, 

1.00000, 

a 

.84380. 

.49133, 

.44877, 

.41671 . 

3 

.39783, 

.37506, 

.35083, 

.33830, 

4 

.14905, 

.14334, 

.14083, 

.15057, 

8 

.37781, 

.38076. 

.15373, 

.08601 . 

8 

.18349, 

.laioo. 

.12934, 

.08838, 

DATA  OMCABS 

/ 

1 

.00083, 

.00153. 

.00184, 

.00808. 

a 

.00189, 

.07838, 

.00943, 

.10051. 

3 

.14633, 

.13730, 

.13463, 

.11184, 

4 

.09734, 

.09000, 

.10304, 

.  1  1905. 

8 

.33494, 

.18418. 

.09388, 

.06605, 

e 

.181*4. 

.09*35, 

.10583, 

.08766. 

END 


.19391/ 

EXT 

1575 

EXT 

1580 

0.00000, 

.00013, 

.00247, 

EXT 

1585 

.57930, 

.19810, 

.03475, 

EXT 

1590 

.33703, 

.17025, 

.12633, 

EXT 

1595 

.11601, 

.12329, 

.14468, 

.44279, 

EXT 

1600 

.45095. 

.45218, 

EXT 

1605 

.17867/ 

EXT 

1610 

EXT 

1615 

.70633, 

.28887, 

.09994, 

EXT 

1620 

.06513, 

.08930, 

.06533, 

EXT 

1625 

.04393, 

.03343, 

.04456, 

EXT 

1630 

.08778, 

.05019, 

.04070, 

EXT 

1635 

.01956, 

.03865, 

.04152, 

EXT 

1640 

.00589/ 

EXT 

1645 

EXT 

1650 

0.00000, 

0.00000, 

.00019, 

EXT 

1655 

.05860, 

.08397, 

.06019, 

EXT 

1660 

.04304, 

.03285, 

.04437, 

EXT 

1665 

.08722, 

.04968, 

.04044, 

EXT 

1670 

.01949, 

.03665, 

.04146, 

EXT 

1675 

.00589/ 

EXT 

1680 

EXT 

1685 

.84873, 

.83019, 

.27969, 

EXT 

1690 

.06076, 

.04506, 

.03399, 

EXT 

1695 

.00994, 

.01044, 

.01361, 

EXT 

1700 

.03234, 

.03456, 

.01646, 

.03184. 

EXT 

1705 

.01665, 

.01734, 

EXT 

1710 

.01339/ 

EXT 

1715 

EXT 

1720 

.04063, 

.02449, 

.01487, 

EXT 

1725 

.00949, 

.00741, 

.00487, 

EXT 

1730 

.00525, 

.00665, 

.01114, 

EXT 

1735 

.03658, 

.03006. 

.03881, 

EXT 

1740 

.01633, 

.01339/ 

.01620, 

.01709, 

EXT 

1745 

EXt 

1750 

EXT 

1755 

1.03013, 

1.05975, 

.60589. 

1.01171, 

EXT 

1760 

.67434, 

,55057, 

EXT 

1765 

.32788, 

.20525, 

.17810, 

EXT 

1770 

.44405, 

.42233. 

.30462, 

EXT 

1775 

.10861, 

.10686, 

.11665, 

EXT 

1780 

.05741/ 

EXT 

1785 

EXT 

1780 

.13475, 

,09159, 

.08601, 

EXT 

1795 

.08078, 

.04133, 

.03839, 

EXT 

1800 

.02776, 

.03411, 

.05335, 

EXT 

1805 

.19384, 

.30791, 

.18449, 

EXT 

1810 

,07378, 

.08333/ 

.07387, 

.07959, 

EXT 

1815 

EXT 

1620 

EXT 

1625 

.94949, 

,81456, 

,00051, 

EXT 

1930 

.39083, 

.34779, 

.32004 , 

EXT 

1835 

.31683, 

.30353, 

.17268, 

EXT 

1840 

.10399, 

,23606, 

.34491, 

EXT 

1845 

.09458. 

.14576, 

.12373, 

exr 

1650 

.04100/ 

EXT 

1855 

EXT 

I860 

.00791. 

.01829, 

.03729, 

EXT 

1885 

•  net*. 

.13310, 

.<4348, 

EXT 

1970 

.10709. 

.10078, 

.09006. 

EXT 

1875 

.13437, 

.19551, 

.30095. 

EXT 

1880 

.08933, 

.13339, 

.10551. 

EXT 

1885 

•03347/ 

EXT 

1890 

EXT 

1888 

BLOCK  DATA  SF298  BSF 

C*  BLOCK  DATA  BSF 

C  BSF 

C  WATER  VAPOR  QQNTINUUM  -  SELF  BROADENED  ABSORPTION  COEFFICIENTS  2S6BSF 
C  BSF 

C  COMMON  /SH20/  VI. V2,0V,NPT. $2*6(2001)  BSF 

COMMON  /SH20/  VI . V2.DV ,NPT , S0001 (50) .S00S1 (50) .S0T01 (80) ,50151 (BO)BSF 
1 ,30201(50) .S0251 (50) . S0301 (50) ,50351 (SO) .S0401 (SO) ,50451 (50)  BSF 

2.S0S01 (SO) ,50551 (50) ,S0601 (50) ,S0651 (SO) ,50701 (SO) ,S07B1(SO)  BSF 

3.S0301  (50)  .SOBS' (50)  ,S0901  (SO)  .S0951  (50)  BSF 

4. 51  001 (SO) ,S1051(50),S1101(50),S1151(50),S1201(50),S12B1(BO)  BSF 

s.siaousoi.sissiisohs^oitso.s^sHSO)  bsf 

6. 51  501 (50) , SI  551 (SO) , Si  601 (50) , Si  651 (BO) , 51701(50) ,S17S1 (50)  BSF 

7, $1801 (50) .S1B51 (50) , SI  901 (SO) ,51951 (50) ,S2001 (1)  BSF 

C  BSF 

DIMENSION  5295(2001)  BSF 

EQUI VALENCE (S296( 1 ) , S0001 ( 1 ) )  BSF 

C  BSF 

DATA  V1.V2,DV,NPT  /  BSF 

1  0.0,  20000.0,  10.0,  2001/  BSF 

C  BSF 

C  BSF 

DATA  S0001/  BSF 

C  1.0162E-21,  1.0573E-21,  1.11096-21.  1.2574E-21,  1.34995*21,  BSF 

C  1.4327E-21,  1.5065E-21,  1.5164E-21,  1 .50225-21,  1.3877E-21,  BSF 

C  1.31156-21,  1.2253E-21,  1.1271E-21,  1.0070E-21,  8.7495E-22,  BSF 

C  8.01 18E-22,  6.99406-22 ,  6.2034E-22,  S.6051E-22,  4.7663E-22,  BSF 

C  4. 24506-22 ,  3.66906-22,  3.3441E-22,  3.0711E-22,  2.S205E-22,  BSF 

C  2.21136-22,  1 . 88806-22 ,  1.66S3E-22,  1.48266-22,  1.2085E-22,  BSF 

C  1 .07096-22 ,  9. 1783E-23,  7.7274E-23,  6.73026-23.  5.61B4E-23,  BSF 

C  4.90896-23,  4.14976-23,  3.58236-23,  3.11246-23,  2.6414E-23,  BSF 

C  2.31C7E-23.  2,01566-23,  1.7829E-23,  1.55866-23.  1.392BE-23,  BSF 

C  1.23386-23,  1.0932E-23,  9.7939E-24.  8.82416-24,  7. 91736-24/  BSF 

DATA  50051/  BSF 

C  7. 1 296E-24 ,  6.41796-24.  5.8031E-24,  5.28476-24,  4.77626-24,  BSF 

C  4.3343E-24,  3.93556-24.  3.S887E-24,  3.27236-24,  2.9919E-24,  BSF 

C  2.7383E-24,  2.80136-24,  2.287BE-24.  2.09246-24,  1.9193E-24.  BSF 

C  1.76186-24,  1.6l88Er34.  1,48916-24,  1.37176-24,  1.2647E-24.  BSF 

C  1.10716-24,  1.07866-24,  9.9785E-25,  9.2350E-25,  8.55386-23,  8SF 

C  7. 83776-25,  7.37016-25.  8.8677E-23.  6.3993E-25,  B.9705E-25,  BSF 

C  5,57886-25 ■  5.21966-25.  4.8B99E-25,  4.58856-23,  4.3079E-25,  BSF 

2  4.05266-23,  3.N1Q2E-2S.  3.6025E-25,  3.40386-29,  3.22036-23.  BSF 

C  3.031 16-25,  2,09496-25,  2.7505E-2B,  2. 91706-25,  2.49336-29,  BSF 

C  2.37866-20,  2.27226-25.  2.17386-25.  2.08196-23,  1 .98686-23/  BSF 

DATA  S01C1/  BSF 

C  1.01786-33,  1.84426-29,  1. 77606-29,  1.71276-29,  1. 89416-29,  BSF 

C  I. 59976-29.  1.94WSE-29,  1.90346-29,  1.40146-29,  1.42306-29.  BSF 

C  1,38836-25,  1.35786-25,  1.33046-28,  1.30696-23,  1 .28TaE-23,  BSF 

C  1.27336-25,  1.20266-25.  1.33906-25,  1.2544E-2B.  1.2804E-25,  BSF 

C  1.27196-35,  1.28836-39,  1.3I64E-39,  1.398(6-35.  1.41676-23,  BSF 

C  1.48666-35,  1.50096-25,  1.87176-39,  I .11486-29,  2.03886-35.  BSF 

C  3.34666-25.  3.55826*35,  3.91B3E-35,  3.3912E-3S,  3.9B9BE-3B,  BSF 

C  4, 61295-33,  B.909SE-35,  8.9897E-35.  7. 33606-29,  8.73136-35,  BSF 

C  1.00466-34,  1. 14986-34,  1.39436-34,  1.90496-24,  1.89736-24,  BSF 

C  1,97116-24,  a. 02866-34,  3. 38336-34,  3.07B0E-34,  3,87686-24/  BSF 

DATA  SO t Si /  BSF 

C  3,11646-34,  3.35406-34,  3.68846-24,  3,91896-34,  3.8706-34,  BSF 

C  3.74331-34,  3.4S036-34,  3.10036-34,  3.80376-34,  2.53836-24,  BSF 

C  2)34086-24,  3. 20366-24,  3.44436-34.  3.76216-34,  3.90486-34.  BSF 


too 

10B 

110 

1lB 

130 

128 

130 

135 

140 

145 

ISO 

1B5 

1B0 

1B5 

170 

175 

180 

185 

190 

195 

200 

205 

310 

319 

320 
335 
330 
335 
240 
345 
250 
255 
360 
365 
370 

379 
2B0 
285 
390 
395 
300 
305 
310 
319 
330 
325 
330 
335 
340 
348 
390 
355 

380 
385 
370 
373 
300 
SIB 
390 
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C  3.0489E-24,  3.2646E-24, 
C  2.9482E-24,  2.871  IE-24, 
C  1.7788E-24,  1.6101C-24, 
C  9.4224E-25,  8.1256E-25, 
C  S.1619E-25,  4.S140E-25, 
C  3.6440E-25,  2.3107E-25, 
C  1.4097E-25,  1.2052E-25, 
DATA  50201/ 

C  7.1460E-26,  6.4006E-26, 
C  3.9033E-28,  3.4740E-26, 
C  2.2919E-26,  2.0846E-26, 
C  1.4631E-26,  1.3513E-26, 
C  9.9256E-27,  9.2505E-27, 
C  7.0924E-27,  6.6580E-27, 
C  5.2143E-27.  4.9169E-27, 
C  3.9405E-27,  3.7403E-27, 
C  3.0714E-27,  2.9313E-27, 
C  2.4SS1E-27,  2.3540E-27, 
OATA  S0251 / 

C  2.0082E-27,  1.9349E-27, 
C  1 .6894E-27 ,  1 .6400E-27, 
C  1.4808E-27.  1.4603E-27, 
C  1.3569E-27,  I.3270E-27, 
C  1.23991=27,  1.it02E-27, 
C  1.1491E-27,  1.1305E-27, 
C  1.119IE-27,  1.1151E-27, 
C  1.1 2135-27,  1 .1431E-27. 
C  1.4066E-27,  1.5G57E-27, 
C  2. 6953E-27 ,  3.1723E-27, 
OATA  S0301 / 

C  8.2633E-27.  7.2175E-27, 
C  1.01C2E-26.  1 .0620E-28, 
C  1.3130E-26,  1 . 2856E-26, 
C  1 . 0I20E-26,  9. 4795E-27 , 
C  I.1987E-26.  1.2672E-26, 
C  1.45926-20,  1.4S98E-28, 
C  1.S0ME-26,  1.4984E-26, 
C  1.7890E-28,  1.9277E-26. 
C  2.8039E-28.  3.1345E-28, 
C  4 . 8704E-28 ■  5.83916-26, 
OATA  S03S1/ 

C  9,7809E-20i  1.12376-25. 
C  2.1Q94E-25.  3.94H7E-3B, 
C  4.9313E-25.  B.B900E-2S. 
C  8.721CE-J5,  (.9335E-28, 
C  9.7978E-25.  1.00086-24, 
C  I.OBSOE-24,  1.04326-34. 
C  W.3199E-25,  1,OOSOE-2*i, 
C  1.0S90E-24,  1.0C82E-24, 
C  8.8295E-V9.  4.65026-25, 
C  1 .UU88E-25.  1 .40306-29, 
DATA  50401/ 

C  8.6J73E-20,  9.64886-20, 
C  3.2398E-20.  2.89256-38, 
C  1 . <9316-26,  1 .6I0AE-28, 
C  1.04046-98.  9.43006-27, 
C  8.2 137E-J7 ,  8. 63456-27, 
C  3.80436-27,  3. 46106-27, 
C  2.39076-27.  2.19016-27. 


3.38806-24,  3.3492E-24, 
2.6068E-24,  2.2683E-24. 
1.3911 E-24,  1.2013E-24, 
7.3667E-2S,  6.22336-25, 
4.0273E-25,  3.3268E-25. 
2. 07496-25,  1.8258E-25, 
1.0759E-25,  9. 1 400E-26 , 

5.6995E-26,  4.9372E-26, 
3.1269E-26,  2.8059E-26, 
1 .89836-26,  1.7329E-26, 
1.2461E-26,  1 » 1 51 9E-26, 
8.6367E-27,  8.0857E-27, 
6.2580E-27,  S.8853E-27, 
4.6431 E-27 ,  4.3898E-27, 
3.S544E-27,  3.3819E-27, 
2.8003E-27,  2.8777E-27, 
2.2591E-27,  2.1701E-27, 

1.8665E-27,  1.8027E-27, 
1.5953E-27,  1.5557E-27, 
1.4337E-27,  1.4093E-27, 
1.2984E-27,  1.2714E-27, 
1.1878E-27,  1 . 1728E-27 , 
1 .1235E-27 1  1 . 1228E-27 , 
1 . 1 098E-27 ,  1.1 068E-27 , 
1.1820E-27,  1 .23226-27 , 
1.72146-27,  1 .9449E-27 , 
3.7028E-27,  4.4402E-27, 

7.76266-27,  8.7248E-27, 
1 .120  IE-26,  1 .21076-28, 
1 .23506-26,  1 . 14B9E-26, 
9.2858E-27,  9.8080E-27. 
1.34186-26,  1.38646-26, 
1.4774E-26,  1.4726E-26. 
1.51816-26,  1 . 5808E-26, 
2.11 07E-26,  2.30686-26, 
3.S822E-26,  3.90516-26. 
6.34846-28,  7.28906-26, 

1.31876-39,  1.B540E-35. 
3.0092E-26.  3.53896-28. 
B.2B68E-2S.  7.10606-28, 
9.2181E-28.  9.27796-25. 
I.0702E-24.  1 . 1 026E-24 , 
1.04286-24.  9.89806-28. 
1.073BE-24,  1.15506-24, 
9. 17426-39,  8.44926-35. 
3.8071E-29.  3.07316-25. 
1 .2049E-35,  9.87546-36. 

4.09046-38.  4.22B9E-36. 
3.53036-28.  3.24316-26, 
1.44316-26.  1 .39976-28, 
8.45976-27,  7.et336“37. 
5.10766-27,  4.89466-37, 
3.19946-37.  3.87986-27, 
3.00036-37,  I .83846-37, 


3.0987E-24. 

BSF 

395 

1 .9996E-24 , 

BSF 

400 

1.0S44E-24, 

BSF 

405 

5.5906E-25, 

BSF 

410 

3.02586-25, 

8SF 

415 

1 .64596-25, 

BSF 

420 

8.14326-26/ 

BSF 

435 

BSF 

430 

4.44556-26, 

BSF 

435 

2.5558E-26, 

BSF 

440 

1  .5929E-26, 

BSF 

445 

1 .06826-26. 

BSF 

450 

7.5674E-27, 

BSF 

455 

5.5333E-27, 

BSF 

400 

4. 1 564E-27, 

BSF 

465 

3.2212E-27, 

BSF 

470 

2.5628w-27, 

BSF 

475 

2.0866E-27/ 

BSF 

480 

BSF 

485 

1.7439E-27, 

BSF 

490 

1 . 5195E-27, 

BSF 

495 

1 . 3828E-27, 

BSF 

500 

1 .2541E-27, 

BSF 

SOS 

1.1644E-27, 

BSF 

510 

1 . 1 3246-27 , 

BSF 

515 

1.1109E-27, 

BSF 

520 

1.3025E-37, 

BSF 

525 

2.2662E— 27, 

BSF 

530 

5.3852E-27/ 

BSF 

535 

BSF 

540 

9.6759E-27. 

BSF 

545 

1 ,29966-36. 

BSF 

550 

1.0819E-20, 

BSF 

955 

1 .09996*28, 

BSF 

560 

1.43306-26, 

BSF 

565 

1.4830E-26, 

BSF 

570 

1 .68506-26, 

BSF 

575 

2.B347E-26, 

BSF 

5B0 

4.3432E-26, 

BSF 

885 

8.2974E-26/ 

BSF 

599 

BSF 

BBS 

1.0784E-25, 

BSF 

BOO 

4.3764E-25, 

BSF 

805 

7.76996-38, 

BSF 

610 

9.4843E-29, 

BSF 

615 

1.08286-34. 

BSF 

630 

9.49826-25. 

ISF 

628 

1.13296-24. 

8.80996-29, 

•SF 

630 

•SF 

635 

2.33976-35. 

ISF 

840 

7.91936-38/ 

BSF 

848 

BSF 

eso 

3.68606-26, 

BSF 

855 

1.99496-38, 

6SF 

880 

1.15596-28, 

BSF 

885 

6.68236-37, 

BSF 

•TO 

4,19086-27. 

BSF 

•78 

3.63526-37. 

BSF 

MO 

1 ,86471-37, 

BSF 

MB 

C  1.S469E-27, 
C  1.0237E-37, 
C  0.9985E-28 , 
OAT*  S04S1 / 
C  8.0418E-28, 
C  3.969SE-2B, 
C  3.2302E-28, 
C  2.67466-28, 
C  2.4909E-28, 
C  2. 645 IE-28, 
C  3.0701E-28, 
C  3.9875E-28, 
C  5.7030E-2B, 
C  8.9978E-28, 
DATA  S0501 / 

C  1.6394E-27, 
C  2.8109E-27, 
C  8.1941E-27, 
C  1.7197E-26, 
C  4.S140E-28, 
C  0.91216-26, 
C  0.38O9E-20, 
C  9.0844E-26, 
C  9.3S29E-20, 
C  7.8613E-26, 
DATA  50551/ 

C  3.7107E-26, 
C  I . 32S7E-28, 
C  5.1395E-27, 
C  3.47236-27, 
C  1.3B20E-27, 
C  0.2764E-28, 
C  4.9B51E-28, 
C  3.0663E-28, 
C  1 . 9409E-28 , 
C  I.2S43E-2S, 
DATA  50601/ 

C  0.48O0E-29, 
C  3.9930E-29, 
C  4.3722E-29, 
C  3.3802E-30, 
C  2, 06965-29, 
C  2.8724E-29, 
C  2.  TO56E-30, 
C  2.8952E-29, 
C  3.7037E-29. 
C  5.02186-39, 
0A7A  50691/ 

C  7.84196-29, 
C  1.27926-38, 
C  2* 4SO8E-20, 
C  4. 9782E-5B, 
C  1.1 9436-27 , 
C  2.01276-27, 
C  3.8810E-S7, 
C  3.8198E-27. 
C  5.20002-27, 
C  0.6333S-27, 
OAt*  S0701/ 


4.77456-28, 

3. 80946-28 k 

3.0854E-28, 

2.5982E-28, 

2.5013E-28, 

2.6978E-28, 

3.2058E-28, 

4.2458E-28, 

6.2067E-28, 

9.98706-28, 

1 .7318E-27, 
3.2236E-27, 
7.4897E-27, 
2.1 399E-26, 
S.OS53E-26, 
0.90056-28, 
7.3498E-26, 
9.496SE-26, 
9.5944E-26, 
7.I567E-38. 

3.0636E-26, 

1 .09286-26, 
4.35006-27, 
2. 1 709E-27 , 

1 .23836-27, 
7.4191E-38, 
4.50446-28, 
2.7979E-38, 
1.77706-38, 

1 . 15S1E-2H. 

7.88996-39, 
5, 60966-  29, 
4. 1250E-3W, 
3.2499E-29, 
3,80506-39, 
2.8G49E-29, 
2.7307E-39, 
3.10206-29. 
3.90T6E-29, 
9. 49276-29, 


4.53676-28, 
3.6482E-28, 
2.9698E-28, 
2.55106-28, 
3.S216E-28, 
2.7687E— 28, 
3.3695E-28, 
4.5480E-28, 
8.791  IE-28, 
1.11 02E-27, 

1  <93826-27 , 
3.7760E-27, 
9.20416-27, 
2.6266E-26. 
5.8485E-28, 
6.9861E-28, 
8.031  IE-26, 
9.4909E-26, 
9.5459E-26, 
6.2677E-28, 

2.5S73E-26, 
8.99B6E-27, 
3.7584E-27 , 
1.9294E-37, 
1 .1189E-27, 
6.70B5E-28, 
4.0916E-28, 
2.549SE-28, 
1.82606-28, 
1 .06556-28, 

7.35476-29. 
5. 35926-29, 
3. 908 IE-29, 
3.1 324E-29, 
2.75456-20, 
S.0542E-29, 
2.7701E-29, 
3. 22936-29. 
4.13056-29. 
6.83036-29, 


I. 3’ 306 
1.40216 
2.8H3E 
5.73886 
1.36Q4E 
3.93116 
3.94995 
j.?n7ie 
5.65305 
9.91336 


•39,  9 
■29,  1 
•38.  3 
■38,  0 
•37.  1 
•37,  3, 
•27,  3 
•27.  4 
•27,  5, 
•37.  0. 


19531-39, 

64376-39, 

35306-30, 

07436-28, 

83371-27, 

38046-27, 

9B0B6-27, 

09356-27, 

95316-37, 

99306-37, 


4.3253E-28, 
3.4897E-28, 
2.8567E-28 , 
2*5121 E-28 , 
2.5589E-28, 
2.8600E-28 , 
3.5558E-28, 
4.8858E-28, 
7.45796-28, 
1 .23436-27 , 

2. 1819E-27 , 
4.44176-27, 
1 .1574E-26, 
3 -3424 E-28, 
6.5856E-20, 
0.82OOE-2S, 
8.3166E-26, 
9.0160E-26, 
8-9919E-28, 
5. 1899E-28, 

3.03176-20, 

7.46536-27, 

3.2633E-27, 

1.72586-27, 

1.00466-27, 

0.07086-38, 

3.7220E-36, 

2.33866-38, 

1.4885E-28, 

9.85856-29, 

8.86706-29, 
4.93526-29. 
3,71186-29, 
3.03136-39. 
2. 7 ‘496-29, 
3.07236-29, 
2 .83586-29, 
3,30476-29. 
4,39276-29. 
0.32086-39, 

1.02206-39. 
1.86746-28, 
3.73556-28. 
7.88216-28. 
2.00586-27. 
3. 73976-27, 
3.76526-27, 
4.27176-27. 
6.19046-27, 
7.30586-27. 


1.1095E-27, 

BSF 

690 

7.S282E-28, 

BSE 

695 

5.35306-28/ 

BSF 

700 

BSF 

705 

4.13096-28, 

BSF 

710 

3.35006-28, 

BSF 

715 

2.76006-28, 

BSF 

720 

2.49226-28, 

BSF 

735 

2.6049E-28, 

BSF 

730 

2.96436-28, 

BSF 

735 

3.7634E-28, 

BSF 

740 

5.25996-28, 

BSF 

745 

8.1902E-28, 

BSF 

750 

1.3732E-27/ 

BSF 

755 

BSF 

760 

2.46686-27, 

BSF 

765 

5.24226-27. 

0SF 

770 

1.41266-26, 

BSF 

775 

3.8418E-26, 

BSF 

780 

0. 89376-26, 

BSF 

785 

8.60896-26, 

BSF 

790 

8.42606-26, 

BSF 

795 

9.14946-26, 

BSF 

800 

8.60406-26, 

BSF 

805 

4.41886-36/ 

BSF 

810 

BSF 

815 

1.63716-26, 
6.11 1 1E-27, 

BSF 

820 

BSF 

825 

2.04136-27, 

BSF 

830 

1.54926-37, 

BSF 

835 

9.0B32E-38, 

BSF 

840 

5.49636-28, 

BSF 

845 

3.36786-28, 

BSF 

830 

3.12336-28, 

BSF 

835 

1.3674E-38, 

9.13986-29/ 

BSF 

850 

BSF 

863 

BSF 

B70 

6.41316-29, 

BSF 

B73 

4.63546-39, 

BSF 

BOO 

3.53726-29, 

BSF 

80S 

2.9438E-39. 

BSF 

690 

2.69076-39, 

CSF 

C93 

2.88716-29. 

BSF 

BOO 

3.90676-29, 

BSF 

905 

3.53326-29, 

BSF 

910 

4.68816-29. 

0.00781-29/ 

BSF 

918 

BSF 

830 

BSF 

925 

l.t 3886-28, 

BSF 

•30 

2.11006-28, 

BSF 

•35 

4.33346-38. 

BSF 

940 

9. <2846-28, 

BSF 

845 

2.32536-37. 

BSF 

950 

3.82056-27, 

BSF 

•83 

3. 58596-37, 

BSF 

•09 

4.83416-27, 

BSF 

MS 

0.50106-37, 

7.46781-37/ 

BSF 

•70 

bsf 

075 

BSF 

•60 

C  7.9193E-27,  8.36276-27, 
C  1.2899E-26,  1.44476-26, 
C  2.B599E-26,  2.B920E-26, 
C  4.0551E-26,  4.J81BE-26, 
C  4.6739E-26,  4.9482E-26, 
C  4.9022E-28,  4.8449E-26, 
C  5.3231E-26,  5.73626-26, 
C  5.45856-28,  4.9032E-26, 
C  2.2993E-26,  1.7099E-26, 
C  6.7951E-27,  5.5336E-27, 
DATA  S0751/ 

C  3.1427E-27,  2.7775E-27, 
C  1.7162E-27,  1.5115E-27, 
C  1.0092E-27,  9.0795E-28, 
C  8.0414E-28,  5.45646-28, 
C  3.4363E-28,  3.0703E-28, 
C  1 . 9939E-28,  1.8049E-38, 
C  1.22126-26,  1.1155E-28, 
C  7.8292E-29,  7.1749E-29, 
C  5.13S0E-29,  4.739SE-29, 
C  3.A861E-29,  3.2427E-29, 
DATA  SO0O1/ 

C  2. 49376-29,  2.3511E-29, 
C  1.9330E-29,  1.8669E-29, 
C  1.7823E-29,  t.8194E-29, 
C  2.2083E-29,  2.35876-29, 
C  3. 0759E-29,  3.3720E-29, 
C  4.7976E-29,  5.0908E-29, 
C  6.5Tt4E-29,  8.6384E-29, 
C  7.21726-29,  7.2572E-29, 
C  B.7885E-29,  8.2412E-29. 
C  1. >8076-28,  1.18496-20. 
DATA  $0851/ 

C  < , 30S3E-2B,  1 .35586-28, 
C  1 .83856-28,  2.0585E-28, 
C4.I017E-2B,  4. 95956-28, 
C  1.07986-27,  1.2442E-27, 
C  2.04ASE-27,  2.22B0E-27, 
C  2. 3339E-27 ,  2.3502E-27. 
C  3. 0025E-27 ,  3.04966-27, 
C  3, 2890E-27,  3.4100E-27, 
C  3, 67976-37 ,  3.48006-27 , 
C  3. 05896-27,  1.71211-27. 
DATA  $0901/ 

C  7 . 34356-26,  6.20786-28, 
C  3.47726-28,  3.12036-38. 
C  2.01316-28,  1.79936-38, 
C  1,14016-38,  1.03486-28, 
C  6.88486-39,  6.34886-39, 
C  4.219*6-29,  3.774*6-39. 
C  2.43116-29,  3.15736-39, 
C  1.32776-28,  1,18946-29, 
C  7.49886-30,  8.83856-30, 
C  4. 83826-30,  4.45436-30. 
DATA  $0951/ 

C  3.09096-30,  2.05356-30, 
C  2.13786-30,  a. 00736-30, 
C  1.61186-30,  1.54246-30. 
C  1,39376-30,  1.39436-30, 


. 1 267E-27 ,  1 . 0021E-26> 
1.72886-26,  2.0025E-28, 
3.3059E-26,  3.54256-26, 
4.28926-26,  4.42106-26, 
5.111 BE-26,  5.09866-26, 
4.86946-26,  4.811  IE-26, 
6.23S0E-26,  6.0951E-26, 
4.3009E-26,  3.4776E-26, 
1.3870E-26,  1.0750E-26, 
4.6439E-27 ,  4.0243E-27, 

2.44866-27,  2.17886-27, 
1.3478E-27,  1.2236E-27, 
8.22146-28,  7.46916-28. 
4.87546-28,  4.35016-28, 
2. 75626-28,  2.48316-28, 
1. 63686-28,  1.48636-28, 
1 . 0185E-28,  9.34176-29, 
8.58566-29.  6.05886-29, 
4.37716-29,  4.04766-29, 
3.02406-29,  2.82786-29, 

2.2245E-29,  2.11336-29, 
1.81526-29.  1.78526-29. 
1.8866E-29,  1.9759E-29, 
2.4984E-29.  2.63336-29, 
3. 64576-39,  4.06686-29, 
5.481 1 6-29.  8.13946-29. 
7.19186-29.  7 . 3741 E-29 , 
7.39126-29.  7.61086-29, 
1.00216-28,  1 .07526-28, 
1.23466-28,  1 .25166-28, 

1 .42216-28,  1.52016-28, 
2.36746-28,  2.79286-28, 
6.04326-28.  7.63046-28, 
1.44046-27.  1.6331E-27. 
2.30836-27,  2.31966-27. 
2.34446-27,  2.63956-27, 
3.17776-27,  3.41986-27, 
3.54056-27,  3.77746-27, 
3.22836-37,  2.93616-2T, 
1.38416-37,  1.11116-37, 

5.25386-38,  4.53356-38. 
3.81336-28.  3.52506-36, 
1.60766-38,  1.42336-36. 
9.23786-30,  8.53546-39. 
5,73536-39,  5,38006-29. 
3.33136-39,  3.06366-39. 
1.89936-39,  1.70386-39, 
1.03916-39.  9.27786-30, 
8.39156-30,  6.77*46-30, 
4.11556-30,  3.71586-30, 

3.64186-30.  3.45836-30, 
t. 69076-30.  1.78686-30. 
1,49476-30,  1.44016-30. 
t. 43616-30,  1 .47646-30, 


1.12186-26, 

BSF 

985 

2.31396-26, 

BSE 

990 

3.95226-26, 

BSF 

995 

4.5614E-26, 

BSF 

1000 

4.9417E-26, 

BSF 

1005 

4.93786-26, 

BSF 

1010 

5.72816-26, 

BSF 

1015 

2.61066-26, 

BSF 

1030 

6.51916-27, 

BSF 

1035 

3.53686-27/ 

BSF 

1030 

BSF 

1035 

1.92496-27, 

BSF 

1040 

1.11396-27, 

BSF 

1045 

6.74866-28, 

8SF 

1050 

3.87676-28, 

BSF 

1055 

2.22416-28, 

BSF 

1060 

1.34606-28, 

BSF 

1065 

8.56716-29, 

BSF 

1070 

5.58356-29, 

BSF 

1075 

3.75606-29, 

BSF 

1060 

2.65316-29/ 

BSF 

1065 

BSF 

1090 

3.01596-29. 

BSF 

1095 

1.77526-29, 

BSF 

1100 

3.07366-29, 

BSF 

1105 

2.61606-29, 

BSF 

1110 

4.45416-29. 

BSF 

1115 

6.36696-29, 

BSF 

1120 

7.20796-29, 

BSF 

1125 

8.32916-29, 

6SF 

1130 

1.15486-28, 

1 .28266-28/ 

BSF 

1135 

BSF 

1140 

BSF 

1145 

1.66616-28, 

BSF 

1150 

3.39016-28. 

BSF 

1155 

9.07646-28, 

BSF 

1160 

1 .83396-27 , 

BSF 

1165 

2.39196-27, 

BSF 

1170 

2.99286-27, 

BSF 

1175 

3.47396-27, 

BSF 

1180 

3.82856-27, 

BSF 

1185 

2.48816-27, 

BSF 

1180 

8.84136-28/ 

BSF 

1195 

■SF 

1300 

3.90056-28, 

BFF 

1205 

2.23716-28. 

BSF 

1310 

1.24906-28. 

BSF 

1215 

7.82276-29, 

•SF 

1330 

4.89*06-29. 

BSF 

1235 

2.68856-29, 

•SI 

1330 

1.49146-29. 

•SF 

1335 

9.31236-30, 

•SF 

1240 

B. 38366-30, 

•SF 

1245 

3.37316-30/ 

BSF 

1250 

•SF 

1359 

3. 36761-30. 

•SF 

1280 

1.80366-30, 

•SF 

1385 

1.40816-30. 

BSF 

1370 

1,67016-30. 

BSF 

1378 

II? 


C  1.7079E-30,  1.8691E-30, 
C  a. 64836-30,  2.7087E-30, 
C  2.8058E-30,  2.72276-30, 
C  2.90316-30,  3.1 030E-30 , 
C  <.26736-30,  4.3879E-30, 
C  4.63396-30,  4.6716E-30, 
DAT*  81001/ 

C  4.9S89E-30,  4.9499E-30, 
C  6.09326-30.  6.6469E-30, 
C  1 . 0935E-29 ,  1 ,25936-39 , 
C  2.72846-29,  3.2159E-29, 
C  6. 1787E-29,  8.82376-29, 
C  9.955BE-29,  1.0232E-28, 
C  1.0719E-28,  1 . 1526E-28, 
C  1.84176-28,  2.0725E-28 , 
C  3. 0S63E-28 ,  3.343BE-28, 
C  8.0397E-28,  5.331SE-38, 
OATA  SI 051/ 

C  7 • 77286-28,  7.9789E-28, 
C  9. 7S33E-28 ,  1.0007E-27, 
C  1.0494E-27,  1.0303E-27. 
C  1.1I84E-27.  1.23646-27, 
C  1,411 8E-27 ,  1.3371E-27, 
C  6.4362E-2B,  S.0243E-S8, 
C  1.9319E-28,  1.61966-28, 
C  1.13836-28,  1.12216-28, 
C  1.28836-28,  1.3296E-23, 
C  1.45296-28,  1.46656-28. 
OATA  S1101/ 

C  1.47046-28.  1.41426-28, 
C  1.23366-28,  1.25466-28, 
C  1.65406-28,  1,6l44E-28, 
C  1 . Q99BE-28 ,  8.6956E-29, 
C  3. 22336-29.  2.50206-29, 
C  1.09486-29,  9.41416-30, 
C  5.57566-30,  4.98056-30. 
03.16706-30.  2.86676-30, 
C  1.89706-30,  1.72396-30, 
C  1.20316-30,  1.10956-30. 
DATA  S1 151/ 

C  8.28426-31 ,  7. 7727E-S1 , 
0  5.33166-31 .  8.12446-31, 
C  5.9547E-31,  8.15356-31. 
C  5.67246-31,  1 ,00526-30. 
C  1.6T51E-30.  1 .92396-30, 
C  2.3240C-30,  2.40816-30. 
C  2.27916-30.  2.40476-30, 
0  3.65926-30,  4,14956-30, 
C  8. 19286-30.  8.67796-30, 
C  3. *6786 -JO.  I. 12536-29, 
OATA  Si 201/ 

C  l . 98086-39,  3.20086-29, 
C  3.15916-39.  3.28336-39, 
C  3.28016-39.  3.33986-29, 
C  4.08048-39,  4.18776-39. 
C  4.5449039,  4. #1476-39, 
G  4.79688-39.  4,36546-29, 
C  2. 1795E-39,  1.7880039, 
C  7.55336-30,  8.3U896-30, 


2.00816-30.  2. 1 740E-30 , 
2.7313E-30,  2.83526-30, 
2.7356E-30,  2.8012E-30. 
3.3745E-30,  3.8152E-30, 
4.5488E-30,  4.7179E-30, 
4.7024E-30,  4.7931E-30, 

5.0363E-30.  5.3184E-30, 
7.4076E-30,  8.3B05E-30, 
1.4913E-29,  1 .80996-29, 
3.74266-29,  4.5226E-29, 
7.94216-29,  9.00026-29, 
1.05916-28.  1.06576-28, 
1.29626-28.  1.4336E-28, 
2.34266-28,  2.66196-28, 
3.63176-28,  4.0400E-28, 
5.91856-28,  6.53116-28, 

8.65986-28,  8.77686-28, 
1.0650E-27,  1.0992E-27. 
1 .00316-27,  1.04366-27, 
1.36516-27,  1.48816-27, 
1.1902E-27,  1.0007E-27. 
3.81336-28,  2.9400E-28. 
'.42216-28,  1.23176-28, 
1.1574E-2B,  1.16616-28, 
1.42436-28,  1.42406-28, 
1.49746-28,  1.47906-28, 

1.33746-28.  1.27466-28, 
1.30656-28,  1. 40906-28. 
t.  52826-28,  1 .43586-28, 
7.08816-29,  5.57676-29, 
1.99856-29,  t. 58346-29, 
8.1465E-30,  7. 15I7E-30, 
4.39816-30,  3.91816-30. 
2.67456-30.  2-32126-30, 
1.58596-30,  1,43016-30, 
1.02626-30,  9.51306-31, 

7.31996-31,  8. 95B8E-3' , 
5. 98696-31.  5.88436-31. 
6.49266-31,  7.0745E-3I, 
1.1575E-30.  1.36286-30. 
2, 17486*30.  2. 28546-30, 
2. J930E-30,  2.23786-30. 
2.B30SE-30.  2. #0736-30, 
4. 69656-30.  5.09906-30. 
7.33506-30.  8.14346-30. 
1.29996-29,  1,*tO$B6~29. 

2.48016-29.  2.72186-29. 
3.24646-29,  3.3046E-29, 
3.74486-29.  40795C-39, 
4 ,53586-29,  4.40976-39, 
5;268«E-39,  5,24786-39, 
3.9530E-29.  3.24476-39. 
1.43096-29.  1 . 1 3566-29, 
8.64986-30,  4.95#i6-30. 


2.4847E-30, 

BSF 

1280 

2.951  IE-30 , 

BSF 

1285 

2.8034E-30, 

BSF 

1290 

4.06226-30. 

BSF 

1295 

4.6140E-30, 

BSF 

1300 

4.8503E-30/ 

BSF 

1305 

BSF 

1310 

5.6451 E-30, 

BSF 

1315 

9.48986-30, 

BSF 

1320 

2.1842E-29, 

BSF 

1325 

5.35126-29, 

BSF 

1330 

9.88416-29, 

BSF 

1335 

1 .04416-28, 

BSF 

1340 

1.61506-28, 

BSF 

1345 

2.78286-20, 

BSF 

1350 

•:  45566-28, 

BSF 

1355 

8.91886-28/ 

BSF 

1380 

BSF 

1385 

9.1 773E-28, 

BSF 

1370 

1.08646-27, 

BSF 

1375 

1.05376-27, 

BSF 

1380 

1.47236-27, 

BSF 

1385 

7.96286-28, 

BSF 

1390 

2.34436-28, 

BSF 

1395 

1.18636-28, 

BSF 

1400 

1.21576-28, 

BSF 

1405 

1.46146-28, 

BSF 

1410 

1.4890E— 28/ 

BSF 

1415 

BSF 

1420 

1.21726-28, 

BSF 

1425 

1.52156-28, 

BSF 

1430 

t  .38496-38, 

BSF 

1435 

4.27936-29, 

BSF 

1440 

1.30156-29. 

BSF 

1445 

6.29086-30, 

8SF 

1450 

3.52276-30, 

esF 

1455 

3.09486-30, 

BSF 

1480 

1.31046-30. 

BSF 

1485 

8.85956-31/ 

BSF 

1470 

BSF 

1478 

8.59946-31, 

BSF 

1480 

5.88336-31, 

BSF 

1485 

7.90036-Si, 

BSF 

1490 

1.81386-30, 

BSF 

1495 

2.29026-30, 

BSF 

1500 

2.34766-30, 

BSF 

ISOS 

3.17416-30. 

BSF 

1510 

5.50076-30, 

BSF 

1515 

#.88356-30, 

BSF 

1330 

1.76426-29/ 

BSF 

1935 

BSF 

1530 

5.03756-29, 

BSF 

1535 

3.27106-29. 

BSr 

1940 

4.02946-39. 

BSF 

IS4S 

4.27444-29. 

BSF 

1550 

5.02756-29. 

BSF 

1555 

2.64396-29, 

BSF 

1500 

9.19036-30, 

09F 

<5*5 

4.97326-30, 

BSF 

1*70 

oc 


4.3098E-3O, 


93J4E-30, 


OAT*  Sl2Siy 


4.3505E-30, 

S.1122E-30, 


4.3671E-30, 

8.1649E-30, 


4.5329E-30,  4.6827E-30, 
8.0965E-30,  4.9S81E-30/ 


C  4.8928E-30,  4.7947E-30,  4.7986E-30,  4.9071E-30,  4.8867E-30, 
C  4.7260E-30,  4.5756E-30,  4.8400E-30,  4.5993E-30,  4.4042E-30, 
C  4.3309E-30.  4.4182E-30,  4.6735E-30,  8.0378E-30,  B.2204E-3Q, 
C  S.C  I 66E-30,  4.6799E-30,  4.3119E-30,  3.3803E-30,  3.3291E-30, 
C  2.6289E-30,  2.1029E-30,  1  .70HE-30.  I.3345E-30,  t.0224E-30, 
C  7.8207E-31,  6.24S1E-31,  S.048tE-31  ,  4.1507E-31,  3.8419E-31, 
C  3.0582E-31,  3.69O0E-31 ,  2.3778E-31,  2.1343E-31,  1 .9T82E-31 , 
C  1.7162E-31,  1.S391C-31,  1.3877E-31,  t.2619E-31,  1.t4S0E-31, 
C  1.046lE-3t,  9.8578E-32,  8.9579E-32,  8.3463E-32,  7.81276-32, 
C  7.3322E-32,  8.9414E-32,  6.6037E-32.  6.328SE-32,  B.1095E-32/ 
DAT*  $1301/ 

C  S.9387E-32,  B.8118E-32,  5.7260E-32.  S.6794E-32,  S.6711E-32, 
C  S.7003E-32.  5.7670E-32.  S.8717E-32,  6.01S1E-32,  6.1984E-32, 
C  3.4232E-32,  6.6918E-32.  7.006SE-32.  7.3705E-32,  7.7073E-32, 
C  8.2612E-32,  8.7972E-32,  9.4009E-32.  1.0079E-31,  1.0840E-31, 
C  1.1692E-31,  1  .26486-31  ,  1 .3723E-31 .  1.4935E-31,  1.6313E-31, 
C  1.7905E-31.  1.9740E-31.  2.1898E-31.  2.4419E-31 ,  2.7426E-31, 
C  3.00E3E-31 ,  3.4235E-31 ,  3.7641E-31.  4.1929E-31,  4.6776E-31, 
C  5. 21 23E-31 i  5.8497E-31.  6.5294E-31 .  7.4038E-31 ,  8.4793B-31 , 
C9.64S3E-31,  1.1223E-30,  1.2788E-30,  1.4882E-30,  1 .7799E-30, 
C  2.O766E-30,  2.4S23E-30.  2.8591E-30,  3.3386E-30.  4.0531E-3Q/ 
DATA  $1381/ 

C  4.7C83E-30,  S.485BE-30.  6.3377F-30,  7.1688E-30,  B.4184E-30, 
C  9.5144E-30,  1.0481E-39,  1.135SE-29.  1.2339E-29.  1.3396E-29, 
C  1.4375E-29,  1.5B31E-29.  1 .7323E-29,  1.9671E-29,  2.2976E-29, 
C  2.6679E-29,  3.0777E-29,  3.4321E-29,  3.8192E-29,  4.2T11E-29, 
C  4.4S03E-29,  4.8931E-29,  S.2253E-29.  5.4040E-29,  8.63BTE-29. 
?  5.6704E-29.  6.0345E-29.  6.1079E-29.  8.28786-39,  6.403WE-29, 
C  6.3776E-29,  6.1878E-29.  5.8816E-29,  8.7036E-29,  S.5840E-39, 
C  S.690SE-29,  8,89311-29,  8.2478E-29,  8.8291E-29,  7.4828E-29, 
C  7.6078E-29,  T.3098E-39.  6.7S73E-29,  S,982TE-29,  9.09371-29, 
C  4.0099E-39,  3. 1933E-39,  3.4298E-39.  1.8485E-39,  1.4595E-39/ 
DATA  $1401/ 

C  1.3017E-39,  1.01841-39,  8.7433E-30,  7.T108E-3O,  7.004*6-30. 
C  8.539IE-30.  8.14776-30.  8.9394E-30,  8.81501-30,  8. 79911-30, 
C  8.8490E-30,  5.859TE-30,  9.9636E-30.  8.2408E-30,  8.9479E-30, 
C  T.048QE-30,  7.3J13E-30.  7.BS34E-30,  9.08631-30,  8.33881-30, 
C  9.3342E-30.  9.6TS4(-30.  1.0303E-39.  1. 08936-39,  I.1S30E-29, 
C  1.23I0E-39,  1.34131-29,  1.2813E-30,  1.30716-39.  1.2339E-29, 
C  1.1609E-39,  1 .09918-39.  1. 08006-39.  1.0570E-39.  1.06181-29, 
C  1.14311-29,  1 .2270E-39,  t.3370E-39.  1. 47421-39,  1.49486-39, 
C  1.43331-29.  1 .33101-39,  1.17*96-38,  I.0091E-39.  7.93976-30, 
C  8.18441-30,  4.8288t-30.  3.41841-30.  3.94136-30.  1.98976-30/ 
OAT*  S1491/ 

C  1.98T6E-30,  1,39666-30,  1.09306-30.  9.48116-31.  8.37336-31, 
C  7.J908E-3I,  9.T289C-31,  6.1)466-31.  9.TH96-3I.  9.39466-31, 
C  4.88356-31,  4.47*96-31.  4.19696-31,  3.T828t-3l,  3,«4«SE-31. 
C  3. 1019E-JI ,  2. 81096-31 .  3.86106-31.  3.38516-31.  3.04906-31, 
C  1,61336-31,  1 .58396-31 ,  1.3*496-31.  1.33956-31.  1 .07891-31. 
C  9.65446-33,  8.75971-33,  T. 99906-33.  7.39736-33,  8.90396-33, 
C  8.49386-33,  8.11956-33,  8,93356-33,  9.89366-33.  9.41916-33. 
C  9.3993E-33.  8.33386-33.  9.33726-33.  8.39336-33.  9.43936-33. 
C  9.05336-33,  8.64336-32.  8,31976-33.  1. 90H6-33.  7.60166-33. 
C  1.36*56-33,  8.40906-33,  1. 06056-31.  1.33976-31.  1.38336-31/ 
DATA  $1501/ 

e  I. 93936-31,  1.78436-31 .  1.9808C-3I.  3.31976-31,  3.40886-31, 


85F  1878 
SSF  1880 
BSF  1888 
BSF  1S90 
BSF  1898 
BSF  1600 
BSF  1808 
BSF  1610 
BSF  1618 
BSF  1620 
BSF  1635 
BSF  1630 
BSF  1638 
BSF  1640 
BSF  1645 
8SF  1630 
BSF  1888 
BSF  1660 
BSF  1688 
BSF  1670 
BSF  1675 
BSF  1680 
BSF  1688 
BSF  1690 
BSF  1693 
BSF  1700 
BSF  1705 
BSF  1710 
BSF  1718 
BSF  1730 
BSF  1735 
BSF  1730 
BSF  1739 
BSF  1740 
SSF  1749 
BSF  1790 
BSF  1799 
■$F  1760 
BSF  1789 
BSF  1770 
BSF  1779 
BSF  1760 
BSF  17(9 
BSF  1780 
ISF  1789 
8SF  1800 
BSF  1809 
8JF  1810 
BSF  1Bt$ 
BSF  1830 
•SF  1839 
8SF  1839 
BSF  1819 
BSF  l«40 
S3*  1849 
8SF  1880 
BSF  1891 
85 F  1880 
ISF  1888 


C  2.67776-31 
C  4.62836-31 
C  1.08S2E-30 
C  2.2485E-30, 
C  3.5059E-30 
C  3.7539E-30 
C  4.3977E-30, 
C  5.2344E-30, 
C  4.9181E-30, 
OAT*  $1551/ 
C  1.8631E-30, 
C  S.9I74E-31 , 
C  3.812SE-31 , 
C  3.3563E-31  . 
C  4.3475E-31  , 
C  5.3802E-31 , 
C  8.7893E-31 , 
C  B.5893E-31  , 
C  7.0867E-31 , 
C  3.763SE-31 . 

OAT*  $1601/ 

C  9.6919E-32. 
C  3.7190E-32. 
C  2. 10JSE-32. 
C  1.4657E-32, 
C  1 . 25146*32 , 
C  1.31S7E-32. 
C  1. 849?e-33, 
C  2.3354E-32. 
C  3. 5833* -32. 
C  5.9916E-32, 
DATA  St851/ 
r  t . 1 3506-31 , 
C  2.45046-31. 
C  5.78566-31, 
C  I.3I1JE-30, 
C  3.7003E-30, 
C  4. 26306-30. 
C  8,37416-30. 
C  6,63916-30. 
C  8. 7O3SE-30, 
<  8,9*236-30. 

CAT*  SI70I/ 

C  4.80436-30, 
C  1,41916-10. 
C  5. *3916-31 , 
C  3.4««M-it, 
C  2.436*6-31, 
C  2.5*731-31. 
C  4.02216-31. 
C  8.345*6-11 , 
C  8, T66*t-3i , 
C  1.O13SS-30, 
0*74  41781/ 

C  *.32156-31, 
C  1,3*416-30, 
i  8, 58806-31 . 
C  3.30516-21, 
C  «. *S44t-»3, 


,  2.9751E-31 ,  3.2S43E-31 , 
,  5.4556E-31,  6.54906-31, 
,  1.29466-30,  1.4916E-3Q, 
2.51 t4E-30 ,  2. 77156-30, 
,  3.57466-30,  3.6311 E-30 , 
3,94346-30,  4.35106-30, 
4.6062E-30,  4,76876-30. 
5.67526-30,  5.8702E-30, 
4.32726-30,  3. 56816-30, 

1.45876-30,  1 . 1 782E-30 , 
6.1056E-31,  5.34596-31, 
3.6347E-31,  3.50716-31, 
3.54696-31,  3.81116-31, 
4.64766-31,  4.97616-31, 
5.51586-31 .  5.68846-31, 
6.82306-31,  6.66946-31 , 
6.38136-31 ,  6.4741E-31 . 
6.88106-31.  6.41046-31, 
3.17426-31,  2.55816-31, 

7.53S3E-32.  6.0986E-32. 
3.25206-32,  2.87566-32. 
1.92576-32.  1.77776-32. 
1.39666-32,  1.3417E-32. 
1.24376-32.  1.24836-32. 
1.35986-32,  1.41446-32. 
1.75446-32,  1.87336-32, 
2.32976-32,  3.74836-32, 
3.93746-32,  4.34156-32, 
6.74366-32,  7.63686-12, 

1.31016-31.  1.84066-11, 
2.91846-31.  S, 41596-11, 
6,75T8;-31,  T. 91036-31. 

I. 98T46-30,  1.82086-30. 
3.00536-30.  3.342)6-30, 
4,51946-10,  4. #3836-30. 
8.33746-30,  8.3*706-30. 
8. 315*6-30,  8.39846-30, 
8.7(6856-30.  6.91246-30, 
7.838*6-30,  6. 77196-30. 

3.7*381-30,  2.9*346-10, 
t.!4Til;-3e,  9.47*06-31 , 
8.29106-31.  4 . T 11*6-31 , 

J.  1**96-31.  2.91106-31, 
2.19256-31 .  2. *5876-31, 
3,7i??6-Si.  2.92376-31. 
«. 19t*6«3i.  4.8**86-31 , 
8. *3386-3 1 .  7.2*876-31. 
8,»tf.it-3'.  9.9*836-3) , 
1,0*186-30.  8,99776-}). 

9,898*6-3) ,  ).Cfi4t-30. 
«. 39956-30.  *.38326-30. 
9.78836-3),  S. 18316-31, 
). 74026*31,  1.44081-31. 

7 . *0886-32 .  7.08788-32. 


3. 55366-31,  3.99426-31, 
7.68036-31,  9.0053E-31, 
1.77486-30,  2. 0073E-30, 
3.13196-30,  3.330S6-30, 
3.73446-30,  3.6S746r30, 
4.33406-30,  4.25886-30, 
4.64576-30,  4.85786-30, 
5.65036-30,  5.37846-30, 
2.88146-30,  2.3320E-30/ 

9.81326-31,  8.25286-31. 
4.71 16E-31 •  4.18786-31, 
3.38976-31,  3.35416-31, 
3.86756-31 ,  4.1333E-31, 
5.1380E-31.  5.41356-31, 
5.9311 6-31 ,  6.38276-31, 
6.60186-31.  6.48636-31 , 
6.86306-31,  7.02556-31, 
5.81366-31 .  4.72426-31 , 
1.88246-31,  1.33036-31/ 

S.0742E-32,  4  30946-32, 
2.56806-32,  2.31396-32, 
1.65396-32,  1.55086-32, 
1.29986-32,  1.2700e-32. 
1.25926-32,  1.28236-32. 
1.48066-32.  I. 55886-32, 
2.00946-32.  2.16286-32. 
2.99*16-32,  3.27086-32, 
4.80796-32,  5.36026-32. 
8.68126-32.  9.87476-32/ 

1.786*6-31,  2.06316-31, 
3.99796-31.  4.87046-31, 
9.43706-31.  1.12246-30, 
2.Q5T6E-30,  2.31876-30. 
3. 63586-30  ,  3,87376-30. 
3.SS82E-30.  3.81096-30. 
8.39186-30.  B.50SB6-SO. 
8.4S496-30,  8.8*446-30. 
8.8*316-30,  9. 92536-30, 
9.03716-30.  3.37746-30/ 

3.29836-30,  1.81*56-30. 
7.99136-31.  8.79886-31, 
4.26186-31.  3.03136-31, 
2.**7U-1>.  3.80746-31. 
3.43391-3) ,  2. *7646-31, 
3.15*36-31.  3.57396-1). 
8.119)6-3),  6.83926-3). 
t. *0916-31.  8.333*6-31 . 
9.85876-3).  *.5*186-3), 
9.88336-31,  9.332)6-31/ 

«.e*e«-se,  ».  1*556-30, 

*. 13086*33,  1,01*56-30. 
3.77*06-31,  2.8**16-31. 
*.1*3*1-31.  I. 03336-31. 
9.22216-33.  8.60811-33, 


BSF  1870 
BSF  1875 
8SF  1080 
BSF  1885 
BSF  1690 
BSF  1895 
BSF  1900 
BSF  1905 
BSF  1910 
BSF  1915 
BSF  1920 
BSF  1928 
BSF  1930 
BSF  1935 
BSF  1940 
BSF  1945 
BSF  1950 
BSF  1955 
BSF  i960 
BSF  1965 
BSF  1970 
BSF  1975 
BSF  1980 
8SF  1985 
BSF  1990 
BSF  1995 
BSF  2000 
BSF  2005 
BSF  2010 
BSF  2015 
BSF  2020 
BSF  3025 
BSF  3030 
BSF  2035 
3SF  2040 
BSF  2045 
BSF  20S0 
BSF  1055 
BSF  20*9 
BSF  30*5 
8SF  3079 
BSF  3975 
8SF  30*0 
BSF  30*5 
•SF  30*0 
BSF  30*5 
■SF  3100 
BSF  H0S 
BSF  3110 
BSF  3115 
BSF  3130 
BSF  313$ 
BSF  3H0 
BSF  3135 
BSF  3140 
•SF  314* 
BSF  3t*« 
8*7  3tM 
BSF  3188 
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C  5.0502E-32, 
C  3.521SE-32, 
C  2.0707E-32, 
C  3.5175E-33, 
C  S.3548E-33, 
DATA  S1801/ 
C  3. 41 2 IE-33 1 
C  2.2663E-33, 
C  1.5512E-33, 
C  1.Q927E-33, 
C  7.9285E-34, 
C  5.9274E-34, 
C  4.5602E-34, 
C  3.5996E-34, 
C  2.9030E-34, 
C  2.3809E-34, 
DATA  SI 851/ 

C  1.9772E-34, 
C  1.6564E-34, 
C  1.3958E-34, 
C  1.1807E-34, 
C  1.0010E-34, 
C  8.4986E-35, 
C  V.2204E-35, 
C  6.1363E-35, 
C  5.2153E-35, 
C  4.4322E-35, 
DATA  SI 901/ 

C  3.7659E-35, 
C  3.1991E-35, 
C  2.7167E-35, 
C  2.3064E-35, 
C  1.9S74E-35, 
C  1.6607E-35, 
C  t .4084E-35, 
C  1.1341E-35, 
C  I.0120E-35, 
C  8.5734E-36, 
DATA  31951/ 

C  7.2606E-36, 
C  6.1406E-36, 
C  S.2015E-36, 
C  4.4002E-36, 
C  3. 7209E-36, 
C  3. 1454E-36, 
C  2.65796-36, 
C  2.2451E-S6. 
C  1.8950E-36, 
C  1.6003E-30, 
DATA  S2O01 / 

C  1 . 3503E-38/ 


4.5578E-32,  4.2630E-32, 
3.2467E-32,  3.0018E-32, 
1.757SE-32,  1.5114E-32. 
8.2894E-33,  7.3253E-3-5. 
4.8697E-33,  4.4413E--3, 

3. 1 356E-33 ,  2.8856E-33, 
2.0960E-33,  1.94076-33, 
1.4429E-33,  1 .3437E-33, 
1.0224E-33,  9.5767E-34, 
7.4S26E-34,  7.0325E-34, 
5.6121 E-34 ,  5.3195E-34, 
4.341  IE-34,  4.1367E-34, 
3.4427E-34,  3.2952E-34, 
2.7B68E-34,  2.6770E-34, 
2. 292 IE-34 ,  2.2076E-34, 

1 , 9073E-34 ,  1 .8404E-34, 
1 . 6000E-34 ,  1.5459E-34, 
1.3495E-34,  1.3049E-34, 
1 . 1422E-34,  1 . 1 050E-34 , 
9.3870E-3S,  9.3747E-35, 
8. 2257E-35 ,  7.9617E-35, 
6.9891E-35,  6.7653E-35, 
5.9399E-35,  5.7499E-35, 
5.0434E-35,  4.8868E-35, 
4.2902E-35,  4.1527E-35, 

3. 645 IE-35,  3.5281E-35, 
3.0963E-35,  2.9967E-33, 
2.6293E-35,  2.5446E-35, 
2.2320E-35,  2.1600E-35, 
1 . 8942E-35 ,  1.8329E-35, 
1 . 6069E-35 ,  1.5548E-35, 
1.36276-35,  1.3185E-35, 
1 . 1 552E-35 ,  1.1177E-35, 
9. 7900E-35,  9.47072 '36, 
8. 2933E-36 ,  8.022jc-36, 

7.0229E-36,  r  -929E-36, 
5.9449E-36,  5..498E-36, 
S.0305E-36,  4.8650E-36, 
4.25S2F-36,  4.1149E-36, 
3.5981  *■  36,  3.4792E-36, 
3.0413- -36,  2.9406E-36, 
2. 5697 r. -36,  2.4B45E-36. 
2 . 1 705E-36 ,  2.0984E-36, 
1.8327E-36,  1.7716E-36, 
1.546BE-36,  1.4952E-36, 


3.9461E-32,  3.7599E-32, 
2.655BE-32,  2.3928E-32, 
1.294  IE-32,  1 . 1004E-32 , 
6.5551E-33,  5.9098E-33, 
4.0600E-33,  3.7188E-33/ 

2.6590E-33,  2.4S33E-."  i, 
1 . 7390E-33 ,  1 . 6695E-3J , 
1.2527>‘-3;;,  1 . 1 693E-33, 
8.9816t  8.4335E-34 , 

6.6352E-  -•*,  6.2676E-34, 
5. 04796-34,  4.7953E-34, 
3.9456E-34,  3.7670E“34^ 
3. 1 566E-34,  3.0261E-34, 
2.5730E-34,  2.4745E-34, 
2.1271E-34,  2.0504E-34/ 

1.7764E-34,  1.7 151 E-34, 
1.4939E-34,  1.4439E-34, 
1.2620E-34,  1 . 2206E-34 , 
1.089  IE-34,  1.0345E-34, 
9.0727E-35,  8.7808E-35, 
7.7064E-35,  7.4594E-35, 
6.5488E-35,  8.3392E-35, 
5.5659E-35,  5.3878E-35, 
4.7303E-35,  4.5788E-35, 
4.01 96E-35,  3.8907E-35/ 

3.4149E-35,  3  3052E-35, 
9004E-35,  2.8071E-35, 
2.4626E-3S,  2.3833E-35, 
2.0903E-35,  2.0228E-35, 
1.7736E-3S,  1.7163E-35, 
1.5044E-35,  1 .4557E-35, 
1.2757E-35,  1.2342E-35, 
1 . 081 3E-35 ,  1.0461E-35, 
9.161 8E-36,  B.8628E-36, 
7.7600E-36.  7.6062E-36/ 

6.5703E-36,  6.3350E-36, 
5.5610E-38,  5.3783E-36, 
4.7049E-3r,  4.5SOOE-36, 
3.9792E-36,  3.-1 179E-30, 
3.3642E-36,  3.2530E-3C, 
2.8432E-36,  2.7490E-38, 
2.4020E-36,  2.3223E-36, 
2.0286E-36 ,  1.961  IE-36, 
1 .71 26E-36,  1 . 6555E-36, 
1.44537,-36.  1 . 3970E-36/ 


QSF  216? 
BSF  2170 
BSF  2175 
BSF  2180 
BSF  2185 
BSF  2190 
BSF  2195 
3SF  2200 
BSF  2205 
BSF  2210 
BSF  2215 
BSF  2220 
BSF  2225 
BSF  2230 
BSF  2235 
BSF  2240 
BSF  2245 
BSF  2250 
BSF  2255 
BSF  2260 
eSF  2265 
BSF  2270 
BSF  2275 
BSF  2280 
BSF  2285 
BSF  2290 
BSF  2295 
BSF  2300 
BSF  2305 
BSF  2310 
BSF  2315 
BSF  2320 
BSF  2325 
BSF  2330 
BSF  2335 
BSF  2340 
BSF  2345 
BSF  2350 
BSF  2356 
BSF  2360 
BSF  2365 
BSF  2370 
BSF  2375 
BSF  2380 
BSF  2385 
BSF  2390 
BSF  2395 
BSF  2400 
BSF  2405 
BSF  2410 
BSF  2415 
BSF  2420 


oo  o  o  o  o  o  o 


SLOCK  DATA  SF260  B60 

BLOCK  DATA  B60 

B60 

WATER  VAPOR  CONTINUUM  -  SELF  BROADENED  ABSORPTION  COEFFICIENTS  260BG0 

B60 

C5MMON  /S260/  VI , V2,QV ,NPT , S260(2001 )  B60 

COMMON  /S280/  VI ,V2,DV,NPT,$0001 (50)  $0051 (50) .S0101 (50) ,S0151 (50)660 
1 .S0201 (50) ,S0251 (SO) ,S030t (SO) , S03S1 (GO) ,50401 (50) ,50451 (50)  B60 

?,'.0501  (50)  ,S0551  (50) ,S0601 i50) ,  S0651  (50)  ,S0701  (50)  ,50751  (50)  B60 

а. SOSOI (50) .S0851 (50) ,S0901 (50) ,80951 (50)  860 

4, SI  001 ( 50) , SI  051 (50) , St  1 0’ (50) , Si  1 51 (50) , SI 201 (50 ) , SI 251 (50)  B60 

б,  SI  301 (50), SI  351 (50), SI  401 (SO), $1451(50)  B60 

6, Si 5vt (50) , SI  551 (SO) ,Sl6v1 (50) .S1851 (501 ,  IM701  (SO)  ,$1781  (50)  B60 

7, SI  801 (50) , SI  851 (50) , SI  901 (50) , Si  951 ( S0> , $2001 (1 )  B60 

B60 

B60 

DIMENSION  S260( 1 )  B60 

EQUIVALENCE  (S260( 1 ) , S0001 ( 1 ) )  B60 

DATA  V1.V2.0V.NPT  /  B60 

1  3.0,  20000.0,  10. 0,  2001/  B60 

B60 

660 

OAfA  S0001/  B60 

C  1.6A57E-21,  1.704SE-21,  1.7750E-21,  2.0036E-21,  2.1347E-21,  B60 

C  2.2454E-21,  2.3428E-21,  2.3399E-21,  2.30226-21,  2.0724E-21,  860 

C  1.9712E-21,  1.83I7E-21,  1 .8724E-21 ,  1.4780E-21,  1 .2757E-21 ,  060 

C  1.16266-21,  1.00986-21,  B.9033E-22,  7.9770E-22,  6.7416E-22,  860 

C  5.9588E-23,  S.1117E-22,  4.6218E-22,  4.21796-22,  3.4372E-22,  BOO 

C  2.986JE-27,  2.5252E-22,  2.2075E-22,  1.92096-22,  1.5815E-22,  860 

C  1.39326-22.  1.1P43E-22,  1 .0079E-22,  8.76676-23.  7.40946-23,  860 

C  6.49676  23,  5.5H1E-2J,  4.84446-23,  4.25526-23,  3.69536-23,  860 

C  3. 28246-23.  2.912-16-23,  2.6102E-23,  2.3370E-23,  2.1100E-23,  860 

C  1,93086-23,  1.71456-23,  1.S573E-23,  1.4206E-23.  1.29316-23/  660 

DATA  S0051/  060 

C  1.1803E-23,  1.07746-23,  9.0816E-24,  9.04966-24,  8.3071E-24.  880 

C  7.63196-24,  7.01495-24,  G.1637E-24,  5.9566E-24,  5.4987E-24,  060 

C  5.07686-24,  4.68806-24,  4.3317E-24,  4.00B7E-24,  3.70646-24,  860 

C  3.43256-24,  3.18096-24,  Q.9501E-24.  2.7382E-24,  2.5430E-24.  860 

C  2.3630E-24,  2.1977E-24.  2.0452E-S4,  1.9042E-24,  1.7740E-24,  860 

C  1 ,65446-24 ,  1.54426-24,  1.4425E-24.  1,34866-24,  1. 26186-24,  860 

C  t. 18176-24.  1.1076E-24,  1.0391E-24,  9.7563E-25.  9.1606E-25,  660 

C  8.62726-25.  8. 12536-25,  7.66076-25.  7.2302E-25.  6.B311E-25,  860 

C  8. 4613E-25,  6.11836-25.  5.8001E-25,  5.50486-25,  5.2307E-25,  B60 

C  4,97616-25,  4.7395E-J5.  A. 31976-35.  4.31556-25.  4.1256E-25/  890 

DATA  50101/  860 

C  5.94916-25.  3.70496-25,  3.8324F.-25,  3.49006-25,  3.38946-25.  860 

C  3.33746-25,  3.12446-25,  3.0201E-25.  2. 92406-25,  2. 83506-25,  860 

C  2.75476-25,  2.0U14E-25,  2.0147E-25,  3.555U-25.  2.50396-25,  860 

C  2.49026-25,  2.4203E-25,  2,39916-35,  2.3663E-2S,  2.33316-25,  B60 

C  2.34816-23,  2.3513E-2S.  2.36946-25.  2.40326-25.  2,43796-29.  860 

C  2.52346-25,  2.80326-25,  2.71196-25,  2. 06316-25,  3.00406--5,  600 

C  3,32026-25.  3.66386-29.  4.07326-25.  4.59236-25,  5. 33730- 19.  BOO 

C  8.187EE-35,  7 . 20316-28 ,  0.59806-25.  9. 00426-25.  1.1409E-24.  860 

C  1.33276-24,  1.53906-24,  1.7B136-24,  2.06056-24.  2.3609E-24,  060 

C  2.82206-24.  2. 86776-24,  3.85806-24,  3.08S46-24,  4.15706-34/  BOO 

oata  soi st /  eoo 

C  4.52076-24,  4.93306-24,  8.45008-24,  5.02506-24,  5,00806-24.  300 

C  5.69776 -24 ,  5.30056-24,  4.80306-24.  4.39156-24.  4.03436-24,  380 

C  3.70536-24,  3.702S6-24,  3.98376-24,  4.46756-24.  4.70736-24.  860 


100 

105 

110 

115 

120 

135 

130 

135 

140 

145 

150 

1SS 

160 

165 

170 

175 

180 

185 

190 

195 

200 

203 
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215 

220 
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230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

200 

205 

290 

293 

300 
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310 

318 

330 

335 

330 

339 
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350 
355 
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370 
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360 
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390 
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C  4.9022E-24, 
C  4.5473E-24, 
C  2.6367E-24, 
C  1.3851E-24, 
C  7.4788E-25, 
C  3.78S6E-25, 
C  2.0279E-7S, 
DATA  S0201 / 
C  1.0802E-25, 
C  6.4234E-26, 
C  4.1716E-26, 
C  2.9172E-26, 
C  2.1359E-26, 
C  1.6185E-26, 
C  1.2545E-28, 
C  9.9250E-27, 
C  8.0046E-27, 
C  6.5648E-27, 
DATA  90251/ 
C  5.4693E-27, 
C  4.6381E-27, 
C  4.0459E-27, 
C  3.62S4E-27, 
C  3.2655E-27, 
C  2.9749E-27, 
C  2.7856E-27, 
C  2.8548E-27, 
C  2.9236E-27, 
C  4.4692E-27, 
DATA  S0301 / 
C  9.3716E-27, 
C  1.5627E-26, 
C  2.0716E-26. 
C  1.6657E-26, 
C  1 . 9903E-28, 
C  2.3209E-26, 
C  2.2779E-28, 
C  2.S290E-26, 
C  3.9013E-26, 
C  6.01Q6E-26. 

OATA  5035' / 

C  1.2831E-25, 
C  8.T94UE-25, 
C  0.83O5e-25. 
C  1 . 281 3E-24 , 
C  1.5144E-J4, 
C  1.6429E-24, 

C  1 .84888-24, 
C  1,03008-24. 
C  7.9140E-29, 
C  2.S125E-25, 
DATA  50401 / 

C  W.4953E-20, 
C  4.9000E-26. 

c  s.ause-as. 

C  1.7035E-80. 
C  I.07C9E-2G. 
C  9.9434E-27. 
C  4.6(018-27. 


6.2076E-24, 
4  3952E-24, 
2.3767E-24, 
1 .1874E-24, 
6.5438E-2S, 
i.3034E-2S, 
1.7526E-25, 

9.7681E-26, 
5.8391E-26, 
3.8649E-f.6, 
2.7348E-20. 
2.0159E-26, 
t .5356E-26 , 
1.1951E-2S. 
9.4935E-27, 
7.6834E-27, 
6.3214E-27, 

S.2835E-27, 
4.S007E-27, 
3.9S32E-27, 
3.5420E-27. 
3.1965E-27, 
2.9184E-27, 
2.7509E-27, 
2.6617E-27, 
3. 1 035E-27 , 
5.0761E-27, 

1.0797E-2S, 

1.6S19E-?6, 

2.0433E-26, 

1.58706-26. 
2.0975E-26. 
2 . 2998E-26 , 
2.2348E-26. 
2. 7340E-26. 
4.3334E-20. 
7.47096-26, 

1.4064E-23. 
3.2855E-25, 
7.60406-25, 
1 .3354E-2*. 
1.S475E-24, 
1.0353E-24, 
1 .62876-24 . 
1 .5273E-34, 
8.4741E-35, 
2. 00376-25, 

I. 15018-88, 
4, 3447E-26 . 
2.64906-20. 
1 .5-5486-36 . 
9.9090C-27, 
6.3867E-27, 
4.20533-37. 


S. 3676E-24, 
3.9614E-24, 
2.0427E-24, 
1 .0735E-24, 
5.8248E-25, 
2.9592E-2S, 
1.5714E-25, 

8.8196E-26. 
5.3532E-26, 
3.5893E-26, 
2.5644E-26, 
1.9051E-26, 
1.4584E-26, 
1 .1395E-28. 
9.0873E-27, 
7.3800E-27, 
6.0909E-27 , 

5 .10776-27 , 
4. 37286-27, 
3.8662E-27, 
3.4617E-27 , 
3.12036-77, 
2.8795E-27. 
2.71 52E-27 , 
2.6910E-27, 
3.2854E-27, 
5.7715E-27, 

1 , 1689E-26, 
1.7601E-26, 
1.9752E-26, 
1 .5633E-26, 
2.201 6E-26 , 
2.3056E-26. 
2.2445E-26, 
2.97Q0E-26. 
4.9088E-26, 
0. 50196-36, 

1 .7080E-25, 
3.9P40E-25. 
8.73906-25. 
1.3952E-24, 
t  ,6861 E-24 , 
1 .65436-24, 
1 ,72776-24, 
1 .J0O7E-24, 
6. 1028E-29. 
1,03826-25. 

T.  15126-26, 
3,89006-26, 
3.29026-26, 
1.41076-28. 
0.99016-27. 
5.93496-87. 
3.94376-27, 


S.27S5E-24, 

3.4086E-24, 

1.7595E-24, 

9.0490E-25, 

4.8076E-2S, 

2.6088E-25, 

1.35536-25, 

7.8291E-26, 
4.9079E-26, 
3.3406E-26. 
2.4086E-26. 
1 .8031E-26, 
1 .3861E-26, 
1 .0873E-2E, 
8.7050E-27, 
7.0931E-27. 
5.8725E-27, 

4.9416E-27, 
4 . 2550E-27 , 
3.7855E-27, 
3.3838E-27, 
3.0370E-27. 
2.8501E-27, 
2.6844E-27. 
2.73726-27, 
3.5481E-27. 
0.7723E-27, 

t .3217E-26. 
1 .9060E-26, 
1 . 846GE-26, 
1 .6520E-26, 
2.25426-26, 
2.2757E-26, 
2.3174E-26, 
3.2332E-26. 
5.34286-26, 
9.6835E-28, 

2.01036-25, 
4.6429E-25. 
1.0034E-24, 
1. 42046-24, 
1.71356-24, 
1.59446-24, 
1.63076-24. 
1.23846-24. 
4. 14ISE-25. 
1 ,33046-25, 

0.20926-26. 
3.40796-20. 
2.0U01E-33, 
1 . 28396-20 , 
6.23946-27, 
5 . 42636-27 , 
3.S497R-37. 


4.82446-24, 
2.9733E-24, 
1.5493E-24, 
8.1149E-25, 
4.3488E— 25, 
2.3497E— 25, 
1.2145E-25/ 

7.1335E-26, 
4.5378E-26, 
3.1 199E-26, 
2.2664E-26, 
1.7074E-26, 
I.3179E-26, 
1.0384E-26. 
8.3446E-27, 
6.8217E-27, 
5.6655E-27/ 

4.7853E-27, 
4.1450E-27, 
3.7041E-27, 
3.3212E-27, 
3.02S2E-27, 
2.8202E-27, 
2.6642E-27, 
2.B094E-27, 
3 .9377E-27 , 
8.0668E-27/ 

1 .4814E-26, 
2.0474E-26, 
1.7526E-26, 
1.8471E-26, 
2.3081E-26, 
2.2685E-2R, 
2.4284E-26, 
3.5392E-26, 
9.9142E-26, 
1.0984E-25/ 

3.4148E-25, 
5,66336-23 , 
1.11696-24, 
1.46156-24, 
1.6031 E-24. 
1 ,54046-24, 
1.70216-24, 
9.75706-29. 
3.13476-35. 
1.11176-29/ 

5.52886-20, 
3. 10896-20, 
1.07636-20. 
1.17066-20, 
7.55676-27. 
6.O033E-2T. 
3. 378IE-37, 


860 

395 

860 

400 

880 

405 

B60 

410 

860 

415 

800 

420 

860 

425 

B60 

430 

060 

435 

860 

440 

060 

445 

860 

450 

860 

455 

660 

460 

BOO 

465 

860 

470 

880 

475 

860 

480 

B60 

465 

860 

490 

eeo 

495 

860 

500 

060 

505 

660 

510 

860 

515 

660 

520 

660 

525 

660 

530 

680 

535 

860 

540 

B60 

545 

880 

550 

660 

565 

660 

560 

660 

585 

660 

570 

060 

578 

660 

560 

060 

C95 

680 

590 

660 

595 

860 

600 

860 

60S 

660 

810 

060 

015 

eeo 

620 

860 

625 

860 

630 

eeo 

635 

850 

640 

860 

045 

860 

650 

680 

655 

860 

eeo 

880 

656 

eeo 

070 

860 

675 

800 

680 

860 

885 
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C  3.1292E-27,  2.9011E-27, 
C  2.1582E-27,  2. 008 IE-27, 
C  1.S191E-27,  1.4207E-27, 
DATA  S04S1/ 

C  t , 1056E-27,  1.0451E-27, 
C  8.5697E-28,  8.194SE-28, 
C  6.8923E-28,  8.58S9E-28, 
C  S.8744E-28,  5.501 6E-28, 
C  5.1737E-28,  5.1603E-28, 
C  5.2918E-28,  5.3589E-28, 
C  5.8968E-28,  8.0973E-28, 
C  7.26B6E-2B,  7.6541E-28, 
C  9.785,1  E-28,  1.0518E-27, 
C  1.4488E-27,  1.5864E-27, 
DATA  50501/ 

C  2.3369E-27,  2.5996E-27, 
C  4.0566E-27,  4.5969E-27, 
C  8.3045E-27,  9.9021E-27, 
C  2.2210E-26,  2.7B31E-26, 
C  6.2289E-20,  7.1167E-26, 
C  1.0485E-25,  1.0641E-25, 
C  1.0497E-25,  1.1696E-25, 
C  1.4284E-25,  1.4985E-2S, 
C  1.4963E-25,  1.520BE-25, 
C  1.1727E-25,  1 .0515E-25, 
DATA  S0551 / 

C  S.0623E-26,  4.1105E-26. 
C  1.7335E-26,  1.4302E-28, 
C  7.0S89E-27,  6.0750E-27, 
C  3.6625E-27,  3.2509E-27, 
C  2. 142 IE-27,  1 . 9366E-27 , 
C  1 . 3354E-27,  1.2097E-27. 
C  8.4245E-28,  7.7004E-28, 
C  5.4742E-28,  5.0450E-28, 
C  3.6541E-28,  3.3803E-28, 
C  2.4905E-28.  2.3146E-28, 
DATA  50801/ 

C  1.7617E-28,  1 , 839GE-26. 
C  1.2724E-28.  1.1865E-28. 
C  9.4662E-29,  8.9533E-29, 
C  7.3721E-29,  7.0707E-29, 
C  6.181 7E-29,  6.0239E-29, 
C  B.636BE-J9,  5.5940E-29. 
C  5.‘»83TE-29,  B.6243E-29, 
C  8.0429E-29.  6.2211E-29, 
C  7.2336E-29,  7.573BE-29. 
C  9.3992E-29.  1.0004E-2B. 
DATA  50851/ 

C  1 .331 1E-2B,  1.4455E-28. 
C  3.0930E-2B,  8.3348E-2a, 
C  3. T485E-28 .  4.2589E-2B, 
C  7 . 1 801E-28 ,  8.2921E-2B. 
C  1.597 IE-27,  1.8927E-27, 
C  3.7024E-27,  4.3059E-27, 
C  5.9210E-27 ,  8.1005E-37, 
C  8.7403E-27,  8.O050E-37. 
C  •. 09B2E-27 ,  B.7B58E-27, 
G  9.B708E-37,  1.01B3E-2S, 
DATA  $0701/ 


.6915E-27 .  2.4989E-27, 
1.8700E-27,  1.7432E-27, 
1.3306E-27,  1 .2484E-27, 

9.9060E-28,  9.4135E-28, 
7.8308E-28,  7.4808E-28, 
6.330BE-28,  6.0840E-28, 
5.3813E-28,  5.2792E-28, 
5.1 656E-28,  5.1989E-2B, 
5.4560E-28,  5.5869E-28, 
6.3432E-28,  6.6245E-28, 
8.0991E-28,  8.5950E-28, 
1.1349E-27,  1 .2295E-27, 
1.7412E-27,  1 .91 40E-27 , 

2.8848E-27 ,  3.2169E-27, 
5.3094E-27 ,  6.1458E-27, 
1.2042E-26,  1.4914E-28, 
3.4533E-26,  4.4448E-2e, 
8.3949E-26,  9.6417E-26, 
1.0898E-2S,  1 .0763E-25, 
1.2654E-25,  1.3029E-25, 
1 .4999E-25,  1.4317E-25, 
1 .4942E-25,  1 .3879E-2S, 
9.0073E-25,  7.3133E-2B, 

3.3915E-28,  2.6711E-26, 
1 . 1 847E-26,  9.9434E-27, 
5 .31 78E-27 ,  4.6938E-27, 
2.9156E-27,  2.6308E-27, 
1.7626E-27,  1.5982E-27, 
1 . 1059E-27 .  1.0063E-27, 
7.0638E-28,  8.4923E-28, 
4.6470E-28,  4.2881E-38, 
3, 1 279E-28,  2.8955E-28, 
2.1 539E-28,  2.0079E-28, 

t .53C9E-38,  1 . 4426E-28 , 
1 .1267E-2B.  1 . 0617E-28, 
6.4988E-29.  8.0807E-29, 
6.8047E-39,  6.5703E-39, 
5.89aaE-39,  B.7B34E-39. 
5.6669E-39.  5.B583E-39, 
5.68B3E-29,  S.7BOOE-3B, 
6.42B2E-39,  6.8634E-39. 
7.9583E-39,  8.37791-39, 
1 .0684E-38,  1 • 1450E-38 . 

1 .57565-38,  1 . 7354E-28, 

3.8074E-38,  a.aaaic-ai, 

4.8BB1E-3B,  5.580BE-38, 
B.5513E-28,  1.1111E-37, 

а. ae43e-37,  3.78805-27, 
4.9432E-27 ,  5.5543E-37, 

б. 1577E-37,  S.9193E-37. 
6.4733E-37,  6.7073E-27. 
9.1430E-37.  9. 44595-27, 
1.0088E-28.  1.0353E-36, 


2.3215E-27, 

B60 

690 

1 .6264E-27, 

360 

695 

1 . 1737E-27/ 

860 

700 

860 

705 

8.9608E-28, 

860 

710 

7 . 1 686E-28, 

860 

715 

5.8678E-28, 

860 

730 

5.2097E-28, 

B60 

736 

5.2467E-28, 

BOO 

730 

5.7403E-28, 

560 

735 

8.9353E-23, 

850 

740 

9. 1429E-28 , 

B60 

745 

1 .3335E-27, 

860 

756 

2. 1078E-27/ 

560 

755 

B60 

760 

3.5991E-27, 

860 

768 

7.1155E-27, 

860 

770 

1.8145E-26, 

860 

77$ 

5.1989E-28, 

MO 

780 

1 . 0313E-25, 

860 

785 

1 . 0506E-25, 

860 

790 

1 .3175E-25, 

860 

796 

1.4616E-25, 

860 

600 

1 .3087E-25, 

860 

808 

6.1181 E-26/ 

860 

810 

860 

81$ 

2.14B4E-26, 

860 

830 

8.2689E-27 , 

860 

83$ 

4.1541E-27, 

860 

830 

2.3819E-27, 

660 

836 

1.4587E-27, 

660 

840 

9.2003E-28, 

860 

849 

S.9503E-28, 

660 

860 

3. 9550 E-28 , 

660 

655 

3.8858E-28, 

660 

660 

1 .8746E-28/ 

660 

665 

660 

•70 

1.3543 E-28. 

660 

•75 

1.0010E-28, 

660 

880 

7.7043E-29, 

BOO 

685 

8.3634E-29, 

MO 

890 

5.7019E-29, 

•60 

895 

5.5653E-20. 

660 

900 

5.8984E-2B, 

860 

BOS 

8.9308E-29, 

660 

BIO 

8.8675E-39, 

1 .23205-28/ 

660 

BIS 

•60 

930 

680 

035 

1 .B937E-28, 

660 

930 

3.3770**28, 

660 

935 

8.3393**38, 

660 

940 

1.3143E-37, 

660 

945 

3.3591E-27, 

MO 

950 

6.7498**37 , 

860 

BBS 

6.6803**37, 

MO 

960 

7.6418**37, 

MO 

969 

8.8347**37, 

MO 

•70 

1 .03531*36/ 

MO 

•75 

MO 

MO 
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C  1.C722E-26,  1.11386-26, 
0  1.6S37E-26,  1.8662E-26, 
C  3.48586-26,  4.01676-26, 
C  8.0503E-26,  8.46876-26, 
C  7.230SE-26,  7.6732E-26, 
C  7.7657E-26,  7.74116-26, 
C  8.5799E-26,  0.1659E-26, 
C  8.2034E-2S,  7.22976-26, 
C  3.1517E-26,  2.44696-26, 
C  9.4686E-27,  7.84866-27, 
DATA  S0751 / 

C  4.6809E-27,  4.1671E-27, 
C  2.641 5E-27 ,  2.3409E-27, 
C  1.S939E-27,  1.4368E-27, 
C  9.6884E-V8,  8.7888E-28, 
C  5.7256E-28,  S.1769E-28, 
C  3.S467E-28,  3.2S02E-28, 
C  2.3056E-28,  2.1267E-28, 
C  1 .54916-28,  1.43296-28, 
C  1.0S93E-28,  9.8475E-29, 
C  7.4226E-29,  6.9379E-29. 
OATA  S0601 / 

C  6.3877E-29,  5.0821E-29, 
C  4. 1 336E-29 ,  3.9632E-29, 
C  3.S804E-29,  3.S776E-29, 
C  3.9804E-29,  4.1742E-29, 
C  5. 1297E-29,  5.5291G-29, 
C  7.6318E-29,  7.9947E-29, 
C  1 .05496-28,  1.1064E-28, 
C  1 .16386-28 ,  1.19176-28, 
C  1.4360E-28,  1.5057E-2B, 
C  1 . 8352E-28,  1.87226-28, 
OATA  S0851 / 

C  1.941  IE-28,  1.9884E-28, 
C  2.5050E-28,  2.7S98E-28, 
C  S.2240E-28,  6.32366-28, 
C  1 .43416-27,  1.6798E-27, 
C  2.98B4E-27,  3.3247E-27. 
C  3.6580E-27 ,  3.7124E-27, 
C  4.6877E-27,  4.7507E-27, 
C  B.2238E-27,  B.4690E-27, 
C  S.8S22E-27,  8.41236-27, 
C  2.8932E-27,  2.38556-27, 
DATA  50901/ 

C  9.8482E-28,  8.36756-28, 
C  4.9021 E-28 ,  4.5387E-26, 
C  3.0120E-28,  2.70326-28, 
C  1.7414E-28.  I.5706E-29, 
C  1 . 0737E-28 ,  9.83096-29, 
C  6.4858E-29,  B. 80376-29, 
C  3. 76526-29,  3.39156-29, 
C  3. 203 IE-29,  1 . 9786E-29 , 
C  1.3576E-29,  1.25186-29. 
C  9.1873E-30,  8.50846-30, 
DATA  S39S1 / 

C  6.2593E-30,  8. 82946-30. 
C  4.49316-30,  4.23576-30, 
C  3.4285E-30,  3.27786-30, 
C  2.88T7E-30,  2.83126-30, 


1.1923E-26,  1.29476-26, 
2.2473E-26,  2.6464E-26, 
4.6675E-26,  5.0983E-26, 
6.5396E-26,  6.7986E-26, 
7.9783E-26,  7.9846E-26, 
7.8816E-26,  7.8136E-26, 
9.8646E-26,  9.49206-26, 
6.2324E-26,  4.9315E-26, 
1.88166-26,  1.4627E-26, 
6.6970E-27,  5.881  IE-27, 

3, 7006E-27 ,  3.3066E-27, 
2.0991E-27,  1 .91 32E-27 , 
1.3050E-27,  1.1883E-27, 
7.8956E-28,  7.1024E-28, 
4.70376-28,  4.29016-28, 
2.98276-28,  2.73896-28, 
1 -9610E-28,  1.81336-28, 
1 . 3265E-28,  1.23006-28, 
9.15856-29,  8.52566-29, 
6.4950E-29,  6.09116-29, 

4.8051E-29,  4.55546-29, 
3.81 8SE-29 ,  3.7080E-29, 
3.6253E-29,  3.7115E-29, 
4.3S81E-29,  4.S306E-29, 
5.3125E-29,  6.4956E-29, 
8.6438E-29,  9.7227E-29, 
1 . 1 702E-28,  1.2043E-28, 
1 .21 31 E-28 ,  1.2478E-28, 
1.6247E-28,  1.7284E-28, 
1.91 12E-28,  1 . 9092E-28 , 

2.0508E-28,  2.1510E-28, 
3.1 231 E-28 ,  3.62506-28, 
7.7522E-28,  9.86886-28, 
1 . 9B25E-27 ,  2 . 2898E-27 , 
3.4936E-27,  3.5583E-27, 
3.7O30E-27.  4.1S36E-27, 
4.9653E-27 ,  S.3795E-27, 
5.8569E-27,  B.9844E-27, 
4.7904E-27.  4.28516-27. 
1.8592E-27,  1.49436-27, 

7,12706-38,  6.2498e-2B, 
4,1 340E-2B,  3.74536-38. 
2.4238E-38,  3.15006-38, 
1.41926-28,  1.32046-28, 
8,81 79E-39,  8.26196-29, 
5.30936-29,  4.72056-29, 
3. 00896-29,  2. 73356-29, 
1.7B90E-39,  1.83686-39, 
1.15876-29,  1.0738E-29, 
7. D1 476-30,  7.28836-30, 

B.443BE-30,  5.09976-30, 
4.00236-30,  3.79096-30, 
3.1488E-30,  3.03776-30, 
2. 88176-30,  3. 89766-30, 


1 .4431E-26, 

860 

985 

3.1 041 E-26, 

860 

990 

5.7997E-26, 

860 

995 

7.0244E-26, 

860 

1000 

7.7617E-26, 

B60 

1005 

8.0051E-26, 

880 

1010 

8.76706-26, 

B60 

1015 

3.9128E-26, 

B60 

1020 

1.16986-26, 

5.2198E-27/ 

860 

1025 

860 

1030 

B60 

1035 

2.9387E-27, 

B60 

1040 

1.75196-27, 

660 

1045 

1 .0772E-27, 

B60 

1050 

6.3824E-20, 

860 

1055 

3.8970E-28, 

860 

1060 

2.61116-28, 

660 

1085 

1.6775E-28, 

860 

1070 

1.1420E-28, 

B60 

1075 

7.9S25E-29, 

860 

1080 

5.7242E-29/ 

660 

1085 

860 

1090 

4.3315E-29, 

860 

1095 

3.82966-29, 

860 

1100 

3.81516-29, 

860 

1105 

4.7736E-29, 

7,03626—29, 

B60 

1110 

860 

1115 

1.01306-28, 

660 

1120 

1.17816-28, 

660 

1135 

1 .3S11E-2B, 

860 

1130 

1.8420E-28, 

B80 

1135 

1.931 IE-28/ 

B60 

1140 

860 

1145 

2.31436-28, 

B60 

1150 

4.34106-28, 

880 

1155 

1.18596-27, 

880 

1160 

2.62576-27, 

860 

lies 

3.71506-27, 

560 

1179 

4.66586-27, 

660 

1175 

5.49576-37, 

660 

1180 

5.9835E-27, 

860 

1185 

3.56036-27, 

1.1971E-27/ 

680 

1190 

680 

1195 

660 

1200 

5.49996-28, 

680 

1205 

3.329BE-38, 

680 

1210 

1 .89886-23, 

680 

1315 

1.17B96-2B, 

880 

1330 

7.22646-39, 

680 

1235 

4 . 1 7496-39, 

860 

1230 

2.439BE-39, 

880 

1335 

1 ,48306-29, 

880 

1240 

9.91086-30, 

6.7343E-30/ 

880 

1345 

680 

1380 

680 

1388 

4.78086-30. 

•60 

1380 

3.99996-30, 

MO 

1368 

2.94796-30, 

MO 

1370 

3.00011-30, 

MO 

1273 
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C  3.17186-30,  3.3898E-30, 
C  4. 57416-30,  4.8948E-30, 
C  4.9475E-30,  4.8369E-30, 
C  S.1954E-30,  5.5352E-30, 
C  7.4317E-30,  7.60396-30, 
C  7.8312E-30)  7.8537E-30, 
DATA  SI 001/ 

C  8.2608E-30,  8.2525{-30, 
C  9.86816-30,  1.0629E-29, 
C  1.62S4E-29,  1.84256-29, 
C  3.7570E-29,  4.4354E-29, 
C  8.7474E-29,  9.8037E-29, 
C  1.50256-28,  1.5580E-2B, 
C  1.63936-28,  1.7S45E-28, 
C  2.7060E-28,  3.0214E-28, 
C  4.2660E-28,  4.6385E-28, 
C  6. 89486-28,  7.36496-28, 
DATA  Si  051/ 

C  1.1319E-27,  1.1790E-27, 
C  1.4843E-27,  1.5300E-27, 
C  1.6494E-27,  1.6327E-27, 
C  1.8108E-27,  1.9857E-27, 
C  2.1402E-27,  1.9882E-27, 
C  8.8781E-28,  6.8689E-28, 
C  2.7354E-28,  2.3200E-28, 
C  1.6821E-28,  1 .64336-28, 
C  1.9107E-28,  1.9875E-28, 
C  2. 2 171 £-28 t  2.2534E-28, 
DATA  S1101/ 

C  2.296SE-28,  2.2223E-28, 
C  1 , 9941 £-28 ,  2.0312E-28, 
C  2.60696-28 >  2.5097E-2S, 
C  1.5960E-2S,  1.2386E-28, 
C  4.51 13E-29,  3.5523E-29, 
C  1.6749E-29,  1.4624E-29, 
C  9.0168E-30,  8.1 079E-30 , 
C  5.3290E-30,  4.8990E-30, 
C  3. 3529E-30 .  3.07B9E-30, 
C  2.2355E-30,  2.0763E-30, 
DATA  51151/ 

C  1 , 5929E-30,  1.50136-30, 
S  1 . 2307E-30 .  1. 1 865E-30, 
C  1.1066E-30,  1 . 1218E-30 , 
C  1.4153E-30,  1.B962E-30. 
C  2.5748E-30.  2.9800E-30. 
C  3 . 6622E-30 ,  3.B363E-30, 
C  3.06B3E-30.  3.8507E-30, 
C  9.8932E-30.  6.39996-30, 
C  8.8910E-30,  9.3400E-30, 
C  1.3108E-29,  1.47256-29, 
DATA  SI 201/ 

C  2.84886-99.  3.0327E-29, 
C  4.08S3E-29,  4.9553E-29, 
C  9. 1 1 1SE-29,  S. 22836-29, 
C  8.3296E-29,  6.0173E-29, 
C  7 . 31 82E-29 ,  7.8990E-39, 
C  7.2411E-29,  6.451  IE-29, 
C  2.09446-29,  2.43176-29, 
C  1.06136-29,  9,01386-30, 


3.5857E-30,  3,83586-30 , 
4.7594E-30,  4.9529E-30, 
4.8829E-30,  S.0047E-30, 
S.9928E-30,  8.71486-30, 
7.8313E-30,  8.0684E-30, 
7.8872E-30,  8.0185E-30, 

8.3857E-30,  8.79206t30, 
1 . 1 659E-29,  1 . 2922E-29, 
2.1428E-29,  2.5477E-29, 
5.1802E-29,  8.2769E-29, 
1 . 1 582E-28,  1.3293E-28, 
1 .6228E-28,  1.6413E-28, 
1 .95906-28,  2. 1449E-28, 
3.3733E-28,  3.6487E-28, 
4.9955E-28,  S.5313E-28, 
8.26026-28,  9.221 2E-20, 

1.2941E-27,  1.3199E-27, 
1.6419E-27,  1.7095E-27, 
1.60676-27,  1.6909E-27, 
2.1696E-27,  2.3385E-27, 
1.7362E-27,  1.4308E-27, 
5.2062E-28,  4.0427E-28, 
2.05B0E-2B,  1.8676E-28, 
1.6953E-2Q,  1.7134E-28, 
2.1416E-28,  2.1556E-28, 
2. 30296-28,  2.2828E-28, 

2.1 108E-28,  2.0265E-28. 
2 . 1 080E-28,  2.2611 E-28 , 
2.33186-28,  2,15436-28, 
9.93406-29,  7.75026-29, 
2.8644E-29,  2.33946-29, 
1 .28096-29,  1.13596-29, 
7.2219E-30,  6.49226-30, 
4.41116-30,  4.01846-30, 
2.8288E-30,  2.60B9E-30, 
1.93706-30,  1.80886-30, 

1.41936-30,  1.34706-30, 
1 .15026-30,  1.12436-30, 
1.15296-30,  1.21716-30, 
1 .80486-30 ,  2.09366-30. 
3.3707E-30,  3.5287E-30, 
3.8286E-30,  3.S883E-30, 
4.Q250E-30,  4.44356-30. 
7.02816-30,  7.5777E-30, 
1.0076E-29,  1.0945E-29. 
1. 70286-29,  1.96196-29, 

3.43986-29,  3.B797E-29, 
4.99B1E-29,  5.1082E-29, 
5,82976-29,  8.34396-29, 
7 .16856-29 ,  7.0B20E-29, 
8.349IE-2W,  8.1946E-29, 
5,73386-29.  4. 61056-29, 
1.9309E-29,  1. 63316-29, 
7.93136-30,  7.15436-30, 


4.31316-30, 

860 

1280 

5.15836-30, 

eeo 

1285 

5.02036-30, 

680 

istoo 

7.1 121E-30, 

860 

1295 

7.85536-30, 

660 

1300 

8.10046-30/ 

860 

1305 

B60 

1310 

9.2451E-30, 

880 

1315 

1.4387E-29, 

860 

1320 

3.0379E-29, 

860 

(325 

7.4894E-29, 

B60 

1330 

1.44716-28, 

B80 

1335 

1.6020E-28, 

880 

1340 

2.3BS6E-28, 

B80 

1345 

3.93536-28, 

860 

1360 

8.0923E-28, 

860 

1365 

9.9080E— 28/ 

680 

1360 

660 

1365 

1.3914E-37, 

660 

1370 

1 .6988E-27, 

860 

1375 

1 .71 18E-27, 

B60 

1380 

2.2776E-27, 

880 

1385 

1 . 1 158E-27, 

B60 

1390 

3.26896-28, 

860 

1395 

1.73296-28, 

860 

1400 

1.79486-28, 

860 

1405 

2.2265E-28, 

860 

1410 

2.3143E-28/ 

860 

1415 

660 

1420 

1.95186-28, 

860 

1425 

2.42106-28, 

880 

1430 

1.89426-28, 

860 

1435 

5.94626-29, 

B60 

1440 

1.9584E-29, 

860 

1445 

1 .00876-29, 

860 

1450 

5.88036-30, 

860 

1455 

3.8644E-30, 

B60 

1480 

2.41 25E-30 , 

860 

1485 

1.69486-30/ 

860 

1470 

880 

1475 

1.28416-30, 

880 

1480 

1.10996-30, 

680 

1485 

1,31286-30, 

660 

1490 

2.31656-30, 

660 

1495 

3.59536-30, 

660 

1500 

3.61846-30, 

660 

1505 

4.9889E-30, 

660 

1510 

8,12796-30, 

660 

1515 

1 , 1 B9BE-29, 
2.35276-29/ 

860 

1520 

860 

1525 

660 

1530 

4.41186-29, 

660 

1535 

8.0W98E-29, 

eeo 

1540 

6.26786-29, 

680 

1545 

8.88566-38, 

660 

1550 

7.7I63E-2B, 

860 

1555 

3.69626-29, 

860 

1580 

1.26331-29, 

aeo 

1586 

6. 64881-30, 

880 

1870 
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C  6.4225E-30,  6.39808-30,  6.4598E-30, 
C  7.46948-30,  7.7946E-30,  7.9395E-30, 

data  siasi/ 

C  7.6220E-30,  7.482SE-30,  7.4805E-30, 
C  7.4103E-30,  7:i979E-30,  7.1686E-30, 
C  7.0212E-30,  7.1548E-30,  7.5253E-30, 
C  7.8004E-30,  T.1712E-30,  6.4978E-30, 
C  3.79458-30,  3.0118E-30,  2.4241E-30, 
C  1.15678-30,  9.41S3E-31,  7.7660E-31, 
C  4.9576E-31 ,  4.4137E-31,  3.9469E-31, 
C  2.9419E-31.  2.6703E-31 >  2.4365E-31 , 
C  1.9067E-31,  1. 78006-31,  1.669SE-31, 
C  1.4135E-31,  1 .35198-31 ,  1.2992E-31, 
OATA  SI  301/ 

C  1 . 1962E-31 ,  1.1775E-31,  1.1657E-31, 
C  1.1697E-31,  1.1839E-31,  1.2046E-31, 
C  1.3070E-31,  1.3553E-31,  1.4113E-31, 
C  1.6298E-31,  1.72148-31.  1.8236E-31, 
C  2.2036E-31 ,  2.3590E-31,  2.5317E-31, 
C  3.1849E-31,  3.4654E-31,  3.7923E-31, 
C  5.0940E-31,  5.56248-31,  6.0667E-31, 
0  7.9711E-31,  8.7976E-31,  9.6884E-31, 
C  1 .353 IE-30,  1.5404E-30,  1.73158-30, 
C  2.7014E-30,  3, 1716E-30,  3.6957E-30, 
OATA  SI 351/ 

C  6.22518-30,  7.2149E-30,  8.3958E-30, 
C  1 . 2973E-29,  1.4442E-29,  1.563BE-29, 
C  1.98308-29,  2.17208-29,  2.3662E-29, 
C  3.6907E-29,  4.2625E-29,  4.7946E-29, 
S  6.47308-29,  7.1483E-29,  7.7432E-29, 
C  8.S909E-29,  9.1890E-29,  9.3124E-29, 
C  9.9036E-29,  9.6712E-29,  9.2036E-29, 
C  9*131 5E-29 1  9* 50928*29 *  1.0027E-28, 
C  1.1B53E-28,  1.12968-29,  1.0134E-28, 
C  5. 71508-29,  4.4884E-29.  3.4027E-29, 
DATA  S1401/ 

C  1.7267E-29,  1.4724E-J9,  1 .2722E-29, 
C  9.48808-30,  8.88548-30,  8.5127E-30, 
C  8.33908-30.  8.32948-30,  B.4725E-30, 
C  1.01128-29,  1.0412E-29.  1.09488-29, 
C  1 . 3690E-29,  1.4S12E-29,  1.5SB8E-29, 
C  1.8797E-29,  1.8210E-29,  1.9686E-29. 
C  1 .84868-29,  1.757SE-29,  1.71138-29, 
C  1 .85368-29,  1.9765E-29,  2.13348-29, 
C  2. 1 8338-29 ,  1.978BE-29.  1.73088-29. 
0  8.73758-30,  6.5381 E-30,  4.8677E-30. 
DATA  51451/ 

C  2.37368-30,  1.95908-30,  1.6838E-30, 
C  1.15118-30,  1.05488-30,  9.65118-31 > 
C  7.78048-31,  7.19718-31,  6.82138-31, 
C  5.05088-31,  4,59328-31,  4.1997E-31, 
C  3.03108-31 ,  2.6769E-31,  2.38748-31, 
C  1.73138-31,  1 . 5904E-3! ,  1.4684E-31. 
C  1.21758-31,  1,15428-31,  1.10248-31, 
C  1.00128-31,  9,83798-32.  9,74928-32, 
C  1.0002E-31,  1.04I8E-31,  1.08088-31, 
C  1.33728-31,  1.4041E-31,  1.6467E-31, 
OATA  91501/ 

C  2.29128-31,  2.SD58E-31,  2.91378-31, 


6.7428E-30,  7.0270E-30,  B60  1575 

7.871 6E-30,  7.6933E-30/  660  1580 

B60  1585 

7.651  IE-30,  7.6492E-30,  B60  1590 

7.34038-30,  7.1 1428-30,  B60  1595 

8.04448-30,  8.2378E-30,  860  1600 

S.7573E-30,  4.86758-30,  860  1605 

1.91008-30,  1.4816E-30,  860  1810 

6.5270E-31,  5.66168-31,  B60  1615 

3.57598-31,  3.2478E-31 ,  BSO  1620 

2.2412E-31 ,  2.06068-31,  860  1625 

1.5729E-31,  1.4887E-31,  060  1830 

1 .25636-31 ,  1.2223E-3I/  860  1635 

860  1640 

1.16058-31,  1.16198-31,  880  1645 

1.23198-31,  1 .26598-31 ,  B60  1650 

1. 47548-31,  1.5490E-31,  860  1655 

1.93728-31,  2.0635E-31,  880  1660 

2.7242E-31,  2.94008-31,  860  1685 

4.1 695E-31 ,  4.60558-31,  860  1670 

6.62618-31,  7. 26926-31 ,  860  1675 

1.07758-30,  1 . 2093E-30 ,  B60  1680 

1.99628-30,  2. 33418-30,  860  1885 

4.32338-30,  5.25668-30/  860  1690 

B60  1695 

9. 593 IE-30,  1.13BBE-29,  980  1700 

1.69748-29,  1.84898-29,  660  1705 

2.69878-29,  3.16978-29,  860  1710 

5.38488-29,  6.08978-29,  860  1715 

8.08518-29,  8.50138-29,  860  1720 

9.5936E-29,  9.8787E-29,  B60  1725 

9.04668-29,  8.93808-29,  860  1730 

1.08768-28,  1.17448-28,  860  1735 

8.8245E-29,  7.39308-29,  880  1740 

2.6054E-29.  2.07908-29/  860  1745 

860  1750 

1.12348-29,  1.01868-29,  860  1755 

а. 3tS7E-30,  8.22268-30,  860  1760 

3.88148-30.  9.36078-30,  B60  1705 

1.1810E-29.  1.2267E-29,  860  1770 

1.65528-29,  1.7321E-29.  B80  1775 

1.9917E-29.  1.93578-29,  860  1780 

1.71838-29,  1.76238-29,  860  1785 

2.32378-29.  2.32598-29,  880  1790 

1.4596E-29,  1.11988-29,  BSO  1795 

3.67568-30.  2.9155E-30/  B60  1800 

860  1805 

1.4549E-30,  1.2947E-30,  B80  1810 

9.0489E-31,  8.6170E-31,  680  1815 

б. 10638-31,  5. 58816-31,  860  1820 

3.76728-31.  3.3972E-31,  860  1825 

2.1330E-3I,  1.9073E-31,  680  1830 

1.30988-31  .  1 .28738-31 ,  BSO  1835 

1.06028-31,  1.02878-31,  860  1840 

9.75648-32,  9.8613E-32,  BOO  1845 

1 , 18858-31 ,  1 .23518-31 ,  880  I860 

1.e081E-31,  2.05506-31/  800  1855 

BSO  1800 

3.2368E-31,  3.4646£-3t,  660  1689 
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C  3.0482E-31,  4.2190E-31 
C8.1900E-31,  7.19S3E-31 
C  1.4185E-30,  1.7017E-30 
C  3.0971E-30,  3.5129E-30 
C  6.2436E-30,  8.4098E-30 
C  5.8790E-30,  6.1S26E-30 
C  8.9329E-30,  7.2971E-30, 
C  8.3896E-30,  9.0111E-30, 
C  7.3097E-30,  6.3357E-30, 
DATA  SI 551/ 

C  2.6255E-30,  2.0724E-30, 
C  1.C125E-30,  8.9629E-31, 
C  5. 5200E-31 ,  5.2262E-31 , 
C4.8032E-31,  5.O830E-31, 
C  8.381 IE-31 ,  8.8848E-31, 
C  8.3641E-31,  8.6591E-31, 
C  1 .07656-30,  1 .0851E-30, 
C  1.0796E-30,  1 .0523E-30 , 
C  1.1408E-30,  1.0901E-30, 
C  8.4585E-31,  4.5401 E-31, 
DATA  $1601/ 

C  1.4577E-31,  1.1583E-31, 
C  8.0966E-32,  5.4048E-32, 
C  3 . 6790E-32 ,  3.411 3E-32 , 
C  2.7153E-32,  2.6120E-32, 
C  2.4053E-32,  2.3988E-32, 
C  2.S355E-32,  2.6103E-32, 
C  3.0848E-32,  3.2518E-32, 
C  4.1555E-32,  4.4510E-32, 
C  8.0086E-32,  6.5171E-32, 
C  9.3098E-32,  1.O202E-31, 
DATA  S1651/ 

C  1.5888E-31,  1.7992E-31. 
C3.0909E-31,  3.6228E-31, 
C  7.0168E-31,  8.2298E-31 , 
C  1.6621E-30,  2.0127E-30, 
C  3.8584E-30,  4.1278E-30, 
C  6.1SOQE-30,  6.5878E-30, 
C  9.64?9E-30,  9.7368E-30, 
C  1 . 0356E-29,  1.00926-29, 
C  1.0717E-29,  1.0792E-29, 
C  1.097 IE-29.  1.0969E-29, 
DATA  SI 701 / 

C  8.8839E-30,  S.5369E-30, 
C  2.0810E-30,  1.69156-30. 
C  6.8990E-31 ,  7.91756-31, 
C  5. 1 662E-31 ,  4.7219E-31, 
C  3.6587E-31 ,  3.58656-31, 
C  3. 7629E-31 ,  3.93006-31, 
C  5.66726-31 ,  8.2136E-31 , 
C  9.26346-31,  9.8085E-31 , 
C  1 . 3394E-30 ,  1.3505E-30, 
C  1.5872E-30,  1.5972E-30, 
DATA  S1751/ 

C  1.B0B9E-30,  1.5521E-3D, 
C  1 .98126-30,  3,01766-30, 
C  1.2646E-30,  9.65526-31, 
C  3.27356-31,  3,61716-31, 
C  1 .38595-31 ,  1,23866-31, 


4.5629E-31 ,  4.9022E-31, 
6,53686-31 ,  9.9699E-31 , 
1.9813E-30,  2.3859E-30, 
3.9405E-30 ,  4.51946-30, 
5.6542E-30,  5.7794E-30, 
6.B034E-30,  6.7956E-30, 
7.6546E-30,  7.5078E-30, 
9.1994E-30,  8.7189E-30, 
5.1371E-30,  4.C936E-30 , 

1.6879E-30,  1.41656-30, 
7.845SE-31,  6.8C26E-31 , 
5.0260E-31,  4.8457E-31, 
5.4668E-31 ,  6.57906-31, 
7.4690E-31 ,  7.8249E-31, 
8.9599E-31,  9.34876-31, 
1.0619E-30,  1.0657E-30, 
1.0674E-30,  1 > 1 361E-30, 
9.9105Et31,  8.80776-31, 
3.63136-31,  2.6986E-31 , 

9. 54926-32,  8.0770E-32, 
4.8431E-32,  4.38156-32, 
3.1868E-32,  2.9992E-32, 
2.531  IE-32,  2.47056-32, 
2.4087E-32,  2.43496-32, 
2.70196-32,  2.81106-32, 
3.4405E-32,  3.65276-32, 
4.7801E-32,  5.14626-32, 
7.08846-32,  7.7357E-32. 
1 . 1 407E-31 i  1.26906-31, 

2.0523E-31,  2.3342E-31 , 
4.2053E-31 ,  4.90596-31 , 
9.7071 E-31 ,  1 . 1 673E-30, 
2.3S86E-30,  2.7050E-30, 
4.6591E-30,  5.22206-30, 
7.11 87E-30 ,  7.93726-30, 
9.81426-30,  1.0202E-29, 

1 .0269E-29,  1.03666-29, 
1.10166-29.  1.08496-29, 
1 .04606-29,  9.20266-30, 

4.2908E-30,  3.33846-30, 
1.4051E-30,  1.10676-30, 
7.04406-31,  6,34536-31, 
4.34646-31,  4.0229E-31, 
3.59556-31.  3.592SE-31, 
4,18296-31,  4.48066-31, 
8.867BE-31 ,  7.6111E-31, 
1. 08306-30,  1.19496-30, 
1.4342E-30,  1.4874E-30, 
1. 68216-30,  1.8425E-30, 

1.63256-30.  1.69246-30, 

1 <93596-30,  1,70656-30, 
7.40306-31 ,  5.50526-31, 
2.19096-31,  1.B38SE-31, 

1 >10026-31 •  9.75346-32, 


S. 42326-31 , 

B60 

1870 

1.1734E-30, 

B60 

t875 

2.73046-30, 

860 

1880 

4.8932E-30, 

B60 

1885 

5.6992E-30, 

B60 

I860 

6.68646-30, 

B60 

1895 

7.84O6E-30, 

B60 

1900 

8,1 426E-30, 

B60 

1905 

3.2918E-30/ 

BBO 

1910 

B60 

1915 

1.19896-30, 

660 

1920 

6.0935E-31, 

B60 

1925 

4.78886-31 , 

860 

1930 

6. 00666-31 , 

660 

1935 

8.3371E-31 i 

B80 

1940 

1 . 0066E-30, 

BBO 

1945 

1.04606-30, 

B60  1950 

t . 1431E-30, 

860 

1955 

6.99286-31, 

860 

1960 

1.94636-31/ 

B60 

1965 

880 

1970 

6.96426-32, 

B60 

1975 

3.99876-32, 

860 

1980 

2.84346-32, 

860 

1985 

2.42906-32, 

BBO 

1990 

2.47716-32, 

B60 

1995 

2.9383E-32, 

860 

2000 

3.89026-32, 

B60 

2005 

5.55396-32, 

860 

2010 

8.48316-32, 

860 

2015 

1.4140E-31/ 

860 

2020 

B60 

2025 

2.65786-31, 

860 

2030 

5.92736-31 , 

860 

2035 

1 .4010E-30, 

B60 

2040 

3.09506-30, 

860 

2045 

5.52486-30, 

860  2050 

8.6975E-30, 

860  2055 

1 .0200E-J9, 

860  2060 

1.04906-29, 

B60 

2065 

1.09296-29, 

8.11136-30/ 

660 

2070 

860 

2075 

860 

2080 

2.64806-30, 

860 

2085 

1.01586-30, 

860 

2090 

8.70096-31, 

860 

2095 

3.76B9E-31, 

660 

2100 

3.8288E-31 , 

880  2108 

5.05346-31 , 

880 

2110 

B.  45916-31, 

880 

2115 

1.251  IE-30, 

880 

2120 

1.4920E-3O, 

860 

2125 

1 .49376-30/ 

860  2130 

BOO 

2135 

1.82606-30, 

880 

2140 

1.51976-30, 

880 

2145 

4.23156-31 , 

880 

2150 

1.57526-31, 

880 

2185 

0.9412E-32, 

BBO  2160 

128 


C  8.01696-32, 
C  5.77806-32, 
C  3.4684E-32, 
C  1.6849E-32, 
C  1.O015E-32, 
DAT*  $1801/ 

C  6.6716E-33, 
C  4.60936-33, 
C  3. 282 IE-33, 
C  2.3581E-33, 
C  1.7408E-33, 
C  1.3131E-33, 
C  1.0 1248-33, 
C  7.973SE-34, 
C  6.4053E-34, 
C  5.2384E-34, 
DATA  51851/ 

C  4.3441E-34. 
C  3.6467E-34, 
C  3 • 0891 E-34, 
C  2.6344E-34, 
C  2.2576E-34, 
C  1.941  IE-34, 
C  1.6727E-34, 
C  1.4436E-34, 
C  1 .247  IE-34, 
C  1 . 0779E-34 , 
data  si90i/ 

C  9.3193E-35, 
C  8.0586E-35, 
C  6.96876-35, 
C  6.02606-35, 
C  5.21046-35, 
C  4.6047E-35, 
C  3.89396-35, 
C  3.36556-35, 
C  2. 90826-35, 
C  2.51266-35, 
DATA  SI  951/ 

C  2.17046-35. 
C  1.87446-35, 
C  1.6184E-35, 
C  1.39716-35, 
C  1.20596-39-, 
C  1.04056-35, 
C  8.97586-36, 
C  7.74146-36, 
C  8.67526-36, 
C  6.73466-36, 
DATA  $2001 / 

C  4.95986-38/ 


7.28556-32, 
5.34786-32, 
2.96816-32, 
1 .48636-32, 
9.1-9356-33, 

6.18216-33, 

4.2937E-33, 

3,05206-33, 

2.2154E-33, 

1.6425E-33, 

1.2444E-33, 

9.83586-34, 

7.62026-34, 

6.14426-34, 

5.0389E-34, 

4.19116-34, 
3.52546-34, 
2.9909E-34, 
2.5535E-34, 
2.1 899E-34 , 
1.8839E-34, 
1.6240E-34, 
1.4019E-34, 
1.21126-34, 
1.0469E-34, 

9.0522E-35, 
7.S278E-35, 
6.7691E-3B, 
5.8S33E-3S, 
5. 061 OE-35, 
4.3753E-36, 
3.7820E-35, 
3.2S86E-35, 
2.82446-3$, 
2.44016-35, 

2.10776-35, 
1.8202E-35, 
1 ,57 16E-35 , 
1.30686-36. 
1.17086-35. 
1 .01026-35, 
8.71426-36, 
7,51546-36, 
6.48016-36, 
8.58806-36, 


6.0734E-32, 
4.9652E-32, 
2.57916-32, 
1 .3291E-32, 
8.46126-33, 

5.7353E-33, 
4.00346-33, 
2.8578E-33 , 
2.0832E-33, 
1  .551  IE-33, 
1.18036-33, 
9.1789E-34, 
7.28826-34, 
5.89786-34, 
4.8516E-34, 

4.0453E-34, 
3.40936-34, 
2.89656-34, 
2.4755E-34, 
2.1 245E-34 , 
1.8285E-34, 
1.57686-34, 
1.3614E-34. 
1 .17646-34, 
1.01696-34, 

S.7928E-35, 

7.6036E-35, 

8.57526-35, 

5.6856E-35, 

4.91586-35, 

4.2497E-35, 

3.6733E-35, 

3.1748E-35. 

2.74316-35, 

2.36976-35, 

2.04686-35, 
1.76756-36, 
1.5260E-35, 
1.3172E-3B, 
1.1 3686-35. 
9.8079E-36. 
8.45026-36, 
7.29616-36, 
6.2906C-3S, 
8.42348-30. 


6.4121E-32, 
4.40436-32, 
2.2339E-32, 
1 .20216-32, 
7.8036E-33, 

5.3269E-33. 
3.73616-33, 
2.6782E-33, 
1.96056-33. 
1.46616-33, 
1 . 1 205E-33, 
8.7509E-34, 
8.97606-34, 
5.66506-34, 
4.67386-34, 

3.90636-34, 

3.2980E-34, 

2.80586-34, 

2.40026-34, 

2.0613E-34, 

1.7749E-34, 

1.53106-34, 

1.32216-34, 

1.14256-34, 

9.8775E-35, 

8.54096-35, 
7. 38586-35, 
0.3868E-35, 
5,52266-35, 
4.77486-35, 
4.12776-35, 
3.5677E-35, 
3.08326-35, 
2.6640E-35, 
2.30146-36, 

1.9877E-35, 
1.7164E-35, 
1.48186-35, 
1.27906-35, 
1.1 0376-35 i 
9.5224E-3B, 
8.21366-38, 
7. 08306-36, 
8.10886-36, 
3.28388-38, 


6.1 471E-32, 
3.9862E-32, 
1.9247E-32, 
1 . 0947E-32, 
7.21 00E-33/ 

4.9526E-33, 
3.48956-33, 
2.5120E-33, 
1 .8466E-33, 
1.38696-33, 
1 .06466-33, 
8.3496E-34, 
6.68226-34, 
5.44486-34, 
4.5048E-34/ 

3.77356-34, 
3.19146-34, 
2.71856-34, 
2.3276E-34, 
2.00026-34, 
1.72306-34, 
1.48676-34, 
1 .28406-34, 
1.10976-34, 
9.59436-35/ 

S.29B2E-3S, 
7,1 J42E-35, 
6.20386-36, 
5.3642E-35, 
4. 63786-35, 
,.00916-35, 
3.46516-35, 
2,99446-35, 
2.5872E-35, 
2.23496-35/ 

1 .93026-35, 
1.6867E-35, 
1.43896-35, 
1.24196-35, 
1.0716E-35, 
9.24516-38, 
7.9740E-36, 
8.87816-38, 
8.92808-38, 
3.10948-36/ 


860  2185 
B60  2170 
B60  2175 
860  2180 
860  2188 
860  2190 
860  2195 
860  2200 
B60  2205 
860  2210 
860  2218 
B60  2220 
660  2225 
B60  2230 
860  2235 
860  2240 
860  2248 
860  225Q 
860  2255 
850  2280 
860  2265 
860  2270 
860  2278 
860  2280 
860  2285 
860  2290 
860  2295 
860  2300 
860  2305 
850  2310 
860  2318 
B60  2320 
B60  2328 
860  2330 
B60  2338 
860  2340 
860  2346 
880  2380 
860  2368 
660  2380 
860  2368 
860  2370 
860  2378 
860  2380 
860  2385 
860  2390 
860  2398 
860  2400 
•60  2408 
680  2410 
•80  2418 
MO  2420 


c* 

c 

c 

c 

c 


c 

c 


BLOCK  DATA  BFH20  BFH 

BLOCK  DATA  BFH 

BFH 

WATER  VAPOR  CONTINUUM  -  FOREIGN  BROADENEO  ABSORPTION  COEFFICIENTS  BFH 

BFH 

COMMON  /FH20/  VI ,V2,OV,NPT,F296(2001 )  BFH 

COMMON  /FH20/  V) , V2 , DV ,NPTt FOOOI ( SO) , F0051 (50) , F0101 (50) , F0151 (BO)BFH 
1 f  F0201 (SO) , F0251 (50) , F0301 (50) , F0351 (50) , F0401  ( 50) , F0451 (50)  BFH 

2, F0501(50) ,F0551(50),F0601(SO),F06S1(50),F0701 (50) ,F075t (50)  BFH 

3, F0801  (50)  ,F0851  (50) , F0901 (50) , F0951 (50)  BFH 

4, F1001 (SO) ,F1 05 1 (50) ,F1 101 (50) ,Ft15t (50) , FI  201 (SO) , FI  251 (50)  BFH 

5, F1301(50),F1351(50) , FI  401 (50) , F14S1 (50)  BFH 

6 ,  FI  501 (50) , FI  551 (50) , FI  601 (50) , FI  651 (50) , FI  701 (50) , FI 781 (50)  BFH 

7,  FI  80 1  (50) ,F1851(50) , F1901 (SO) , F1961 (50) , F2001  ( 1 )  BFH 

COMMON  /FRND/IENTER  BFH 

BFH 

BFH 

DIMENSION  F296( 1 )  BFH 

EOU I VALENCE  (F296( 1 ) ,F0001 (1 ) )  BFH 

DATA  V1,V2,0V,NPT  /  BFH 

1  0.0,  20000.0,  10,0,  2001/  BFH 

BFH 

BFH 

DATA  FOOOt/  BFH 

C  1.103SE-22,  1.1715E-22,  1.2859E-22,  1.5326E-22,  1.6999E-22,  BFH 

C  1 . 8321 £-22 ,  1.9402E-22,  1.9570E-22,  1.9432E-22,  1.7572E-22,  BFH 

C  1.6760E-22,  1.5480E-22,  1.39846-23,  1.22666-22,  1.0467E-22,  BFH 

C  9. 45265-23,  8.0485E-23,  6.9484E-23,  6.1416E-23.  8.0941E-23,  BFH 

C  4.48366-23,  3.8133E-23,  3.4608E-23,  3.1487E-23,  2.45S5E-23,  BFH 

C  2.0977E-23,  1.7266E-23,  1.4920E-23,  1.2709E-23,  9.8081E-24,  BFH 

C  8.50635-24,  6.8B22E-24,  5.3809E-24,  4.4679E-24,  3.3774E-24,  BFH 

C  2.7979E-24,  2.1047E-24,  1.6511E-24,  1.2993E-24,  9.3033E-25,  BFH 

C  7.4360E-25,  5.642BE-25,  4.5442E-25,  3.4575E-25,  2.7903E-25,  BFH 

C  2. 1374E-25,  1.8075E-25,  1.3022E-25,  1.0962E-25,  8.5959E-26/  BFH 

DATA  F0051 /  BFH 

C  6,91356-26,  S.3808E-26,  4.3586E-26,  3.6394E-28,  2.9552E-28,  BFH 

C  2.3547E-26,  1.8483E-26,  1.6036E-26,  1 .3483E-2B,  1.1968E-26,  BFH 

C  1 . 0333E-26,  8.4484E-27,  6.7195E-27,  5.0947E-27,  4.2343E-27,  BFH 

C  3. 44536-27 ,  2.7B30E-27,  2.3063E-27,  1.9951E-37,  1.70876-27,  BFH 

C  1 .43936-27 ,  1.2575E-27,  1. 07506-27,  B.2325E-28,  5.7524E-28,  BFH 

C  4.4482E-28,  3.81066-28,  3.4315E-28.  2.9422E-28,  3.5069E-28,  BFH 

C  2.3402E-28,  1.93496-28,  1.6152E-28,  1.2208E-2B,  8.9B-30E-29,  BFH 

C  7 . 1 322E-29,  6.102BE-29,  5.293BE-29,  4.5350E-29,  3.4977E-29,  BFH 

C  2.951  IE-29,  2. 4734E-29 ,  2.050BE-S9,  1.B507E-29.  1.6373E-29,  BFH 

C  1.5171E-29.  1.30716-89,  1.24626-29,  1.21486-29.  1.3B90E-2B/  BFH 

OATA  F0101 /  BFH 

C  1.3153E-29,  1.3301E-29,  1.44B3E-29,  1. 69446-29,  2.0559E-29,  BFH 

C  2.29546-29,  2.62216-29.  3.28066-29,  4.23926-29,  B.2IT1E-29.  BFH 

C  6.2S53E-29,  8.26485-29.  9.59426-29,  1.12606-28,  1.362BE-29,  BFH 

C  1.7635E-2B.  2.167GE-20,  2,48356-28,  3. 00146-26,  3.84B5E-2B,  BFH 

C  4.7440E-2B,  5.52026-28,  7.0887E-28,  9.6B7BE-88,  1.397BE-27,  BFH 

C  1.83916-27,  2.32076-27,  2.9960E-27,  4.0408E-27,  B.9260E-27,  BFH 

C  7.B487E-27,  1.00476-28,  t,4B7eE,-26.  1.93296-26.  2.6887E-26,  BFH 

C  3. 4S3«6-20,  4.4376E-26,  5.B06IE-26,  7.01416-26,  8.4837E-26,  BFH 

C  1 .OtflOE-25 ,  1,20346-25,  1.3937E-25,  1,85956-28,  1.92896-25,  BFH 

C  2.10206-25,  2.30816-25,  2,7064E-25,  3.25106-23.  3.6460E-Q5/  BFH 

DATA  F0191 /  BFH 

C  3.91096-25,  4.20916-25,  4.77576-25,  5.09B1E-28,  B. 05276-25,  BFH 

C  4.86196-23.  4.4001E-25,  3.79626-25,  3. 26676-29,  2.77946-29,  BFH 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

265 

290 

295 

300 

305 

310 

319 

320 
325 
330 
335 
340 
345 
350 

359 

360 
385 
370 
375 
310 
315 
390 
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C  2.4910E-2B, 
C  3.80SOE-25, 
C  3.7718E-25, 
2.0631E-25, 
9.8SS2E-28, 
4.8860E-2S, 
3. 1 018E-28, 
8.4693E-27, 
DATA  F0201 / 
C  3.33166-27, 
1.09536-27, 
3.27916-28, 
1.0229E-28, 
3.2333E-29, 
1.8436E-29, 
3.00546-30, 
1.8007E-36, 
5.4425E-31, 
2.88406-31, 
DATA  F0251/ 
C  S.0303E-31, 
2.6331E-30, 
1.0028E-29, 
1.8575E-29, 
2.1 204E-29, 
2.0742E-29, 
2. 1977E-29, 
1.4398E-29, 
2.9480E-29, 
1.6793E-28, 
OAT A  F0301  / 

C  8.4378E-28. 
1 . 14896-27 , 
1.5454E-27, 
9.3486E-28, 
1 . 1430E-27. 
1.3441E-27, 
1.087 IE-27, 
9.2929E-2B, 
1.54006-27, 
2.9261E-27, 
DATA  F0351/ 

C  7.2895E-27, 
2.0677E-26, 
8.6B91E-28, 
1.O90OE-2S, 
1.20396-25, 

1 . 3420E-25. 
1,18186-28, 
t . 3857E-29 , 

B.saatE-ae, 

1.4853E-26, 
DATA  F04Q1 / 

C  2.4902E-27, 
C  7.3897E-28, 
C  3.35126-20, 
C  1 .387 IE-28, 
C  B.2282E-29, 
C  1.8344E-29. 


C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


2.437SE-2S, 
4. 13S3E-25, 
3.6360E-25, 
1.8371E-2S, 
8.0649E-28, 
4.1321E-28, 
1.7848E-26, 
7.4097E-27, 

2.9488E-27, 
B.5396E-28, 
2.S99SE-28, 
8.5277E-29, 
2.7847E-29, 
1.6S59E-29, 
6.0769E-30, 
1  .3291E-30, 
4.6471E-31 t 
2.7762E-31 , 

8.8027E-31 . 
3.4827E-30, 
1 .21026-29, 
1 .8742E-29, 
2.0381 E-29, 
1.9870E-29, 
2. 1047E-29, 
1.4018E-29, 
4.4439E-29, 
2. 26946-28, 

7.7947E-28. 
1  •  2082E-27 , 
1 .50186-27 , 
8. 1638E-28, 
1 .2263E-27 , 
1 . 2982E-27 , 
9.6843E-28, 
1  .0155E-27 1 
1.7686E-27, 
3.4259E-27, 

8.74B2E-27 , 
2.82946-26, 

B,6281E-28i 

1 . 1287E-28, 
1.32536-35, 
1.3003E-25, 

1 .24946-35, 
1,31206-25, 
5. 1 959E-36 ■ 
1.03896-26, 

1 . 8383E-27 , 
8.02526-38. 
3.92586-38, 

1 .33S5E-38, 
4. 3799E-29 , 
1.38896-29, 


2.7316E-2S, 
4.33236-25, 
3 . 2386E-2S , 
1 . 5445E-25, 
7 . 23856-28 , 
3.59186-26, 
1 .58556-26, 
6.3443E-27, 

,2.34616-27, 
6.9261E-28, 
3.022SE-28, 
6.S249E-29, 
2.4570E-29, 
1.49 106-29, 
4.5646E-3Q, 
9.79746-31 , 
4.0209E-31, 
2.7935E-31 , 

9.39546-31, 
4. 69686-30, 
1.4146E-29, 
1 .870QE-29, 
2.0122E-29, 
2.04856-29, 
1.93346-29, 
1.54596-29, 
5.8341E-29, 
2.94686-28, 

8. 8321 6-28 ■ 
1.2822E-27, 
1.4048E-27, 
7.7690E-2B, 
1.3084E-27, 
1.26386-37, 
9.18776-28, 
1.12636-27, 
2.1 329E-27 , 
4.0770E-27. 

1.0795E-28, 
3.1 1236-28, 
7.6248E-28, 
1.1670E-2S, 
1.32B4E-2B, 

1 . 26456-25 , 

1 .38556-35, 

1 . 1 791E-35, 
4.01586-28, 
7.3938E-27, 

1.45916-27, 
5.1 888E-28 , 
2,42-86-28 . 
9.6940E-29, 
3.55456-39, 
1.04038-39, 


3.2579E-2S, 
4.3004E-25, 
2.7409E-25, 
t. 29896-25, 
S.  9 1376-26, 
2.7640E-26, 
1 .35696-25, 
4.81316-27, 

1.73976-27, 
5.40016-28, 
1.57106-28, 
5,01 17E-29, 
2.33S9E-29, 
1 .2794E-29, 
3.31116-30, 
7.8271E-31 , 
3.5237E-31 , 
3.2012E-31, 

1 .2988E-30, 
S.2380E-30, 
1.8164E-29, 
1.B582E-29, 
2.0436E-29, 
2.15S6E-39, 
1.7357E-29, 
1 .75766-29, 
8.0757E-29, 
3. 92786-28, 

9.78486-28, 
1.4053E-27, 
1 .23596-27 , 
8.48256-38. 
1.33806-27, 
1 . 1 934E-27 , 
9.10506-28. 
1 .23706-27, 
2.304BE-27, 
4,87716-27, 

1.33846-26, 

3.79006-26, 

8.7730E-26. 

1.16356-25, 

1.40056-25, 

1.17156-25, 

1.49316-25, 

1.0837E-25, 

3.01316-28, 

4.97526-27, 


3.54996-25, 

BFH 

39$ 

3.9790E-25, 

BFH 

400 

2.38266-25, 

BFH 

405 

1 .10986-25, 

BFH 

410 

S . 27S9E-26 , 

BFH 

418 

2.4892E-2S, 

BFH 

420 

1 . 1986E-26, 

BFH 

425 

4.0942E-27/ 

BFH 

438 

BFH 

438 

1 .46846-27, 

BFH 

440 

4.5430E-2B, 

BFH 

44S 

1 .30276-28, 

BFH 

4S0 

3.99O0E-29, 

BFH 

455 

2.05996-29, 

BFH 

460 

9.82296-30, 

BFH 

468 

2.4428E-30, 

BFH 

470 

6.3833E-31 , 

BFH 

478 

3.12126-31 , 

BFH 

480 

3.95285-28/ 

BFH 

485 

BFH 

490 

1.84786-30, 

BFH 

498 

7.9106E-30, 

BFH 

500 

1 .75106-29, 

BFH 

SOS 

1 .96576-29 , 

BFH 

510 

a.1213E-29. 

BFH 

815 

2.2222E-29, 

BFH 

S20 

1. 67546-28, 

BFH 

528 

2.1645E-29, 

BFH 

530 

1.16586-28, 

BFH 

535 

9.214SE-2B/ 

BFH 

540 

BFH 

545 

1 .09996-27 , 

BFH 

550 

1 .52386-27, 

BFH 

555 

1 .08586-27 i 

BFH 

5B0 

1 .01146-27, 

BFH 

585 

1 .35736-27, 

BFH 

576 

1.1371E-27, 

BFH 

575 

9.32136-38, 

BFH 

580 

1 .36366-27, 

BFH 

588 

2.581  IE-27, 

BFH 

890 

B.B081E-27/ 

BFH 

098 

BFH 

800 

1.72086-28, 

BFH 

605 

4.77526-26, 

9.86726-26, 

BFH 

610 

BFH 

81B 

1  . 1768E-3B, 

BFH 

620 

1 .38546-25, 

BFH 

829 

1 . 12586-25 , 

BFH 

630 

1.46496-25, 

BFH 

63B 

8.27506-28. 

BFH 

640 

3.04636-20, 

BFH 

648 

3.41486-37/ 

BFH 

B90 

BFH 

8SS 

9. 08886-28, 

BFH 

6B0 

3.6183E-38. 

BFH 

688 

1 .63536-38, 

BFH 

670 

8.33786-39, 

•FH 

67B 

3.09506-39, 

•FM 

880 

8. 34816-30, 

BFH 

888 

131 


C  4.7657E-30, 
C  1.1732E-30, 
C  3.1534E-31, 
C  3.570SE-31 , 
OAT A  F0451/ 
C  1.20096-30, 
C  4.3402E-30, 
C  4.S788E-30, 
C  2.5231E-30, 
C  2.O786E-30, 
C  2.69S2E-30, 
C  2.53946-30, 
C  3.0791E-30, 
C  4.72806-30, 
C  1.2067E-29, 
DATA  F0501/ 
C  3.2483E-29, 
C  8.2139E-29, 
C  3.3130E-28, 
C  1.5927E-27, 
C  5.4442E-27, 
C  8.8080E-27, 
C  7.5989E-27, 
C  t . 1 9096-26 , 
C  1 . 1 938E-28, 
C  t.0073E-28, 
DATA  F0551/ 
C  4.1269E-27, 
C  1.0340E-27, 
C  2. 1 945E-28, 
C  6. < 1336-29, 
C  2.7362E-29, 
C  1.51686-29, 
C  6.81746-30, 
C  2.8275E-30, 
C  1.23906-30, 
C  4.3323E-31, 
DATA  F0601/ 
C  2.94476-31 , 
C  2.8259E-31. 
C  1.40126-31, 
0  6. 3 1336-32 i 
C  7.40736-32, 
C  1.18596-31, 
C  1.10776-31, 
C  6.7498E-32, 
3  1.0040E-31, 
C  1 .89236-31 , 
DATA  FOBS  I  / 
C  6.42606-31, 
fi  2.T349E-30, 
C  1. 01956-29. 
C  3.01146-29, 
C  1.03046-35, 
C  2.9780E-28, 
C  4.81316-28, 
C  3.818*6-28, 
C  6.80546-28, 
C  8.88936-28. 


3.52206-30, 
S.9206E-31. 
2.50686-31 , 
3.24196-31 . 

1.82116-30, 
4.6730E-30, 
4,031  IE-30 , 
2.11526-30, 
2.2484E-30, 
2.6378E-30 , 
2.56556-30, 
3.1667E-30, 
5.65846-30, 
1.50476-28, 

3.9927E-29, 
1. 02856-28, 
4.5442E-28, 
2.13586-27, 
6.2240E-27, 
8.6939E-27 , 
8.69096-27, 
1.2017E-26, 
1.23586-26, 
8.98456-27, 

3.24746-27, 
7.7724E-28, 
1.6301E-28, 
4. 90346-29. 
2.36476-29. 
1 .23616-29, 
8.6147E-30 . 
2.45846-30. 
1.04976-30, 
3.80146-31, 

2.9918E-31, 
2.60656-31 , 
1.13676-31 , 
5.85996-32, 
7.85193-32. 
1.2885E-31 , 
9.60596-32. 
7.31186-32, 
1.09416-31, 
2.33346-31, 

8. 02096-11  , 
3.71936-30, 
1 .29595-39, 
3, 74986-29, 
1,30106-28, 
3.38396-38, 
4,62386-00. 
3.76086-21?, 
8.16806-38. 
7.99016-26, 


2.76796-30, 
7.0596E-31 , 
2.20B8E-31, 
4.81166-31, 

2.4052E-30, 
4.79426-30, 
3.73676-30, 
1.97996-30, 
2.37886-30, 
2.82976-30, 
2.71846-30, 
3.43436-30, 
6.9791 6-30. 
1 .85836-29, 

4.66186-29, 
1 .39196-28, 
6.3370E-28 . 
2. 76266-27. 
7.30046-27, 
8.8541 E-27, 
9.79456-27, 
1.19156-26, 
1.24046-28, 
7.6639E-37, 

2.56986-27, 
5.73026-20, 
1 .28066-28, 
4. 198SE-29, 
2. 12496-39, 
1.06826-29, 
4. B368E-30 , 
2.07426-30, 
8.5038E-31 , 
3.22626-31 ■ 

3.06686-31, 
2.35786-31 , 
9.97306-32, 
5. 01 *56-32 , 
8.90386-32, 
1.308TE-31. 
6.32030-32. 
6.0l7ie-32, 
1.32386-31. 
1.87076-31 , 

1 . 16666-30. 
4.82166-30, 
I.8S356-39, 
4.95046-29, 
1 .64416-38, 
4.00976-26, 
4,48496-38, 
4. 14576*38, 
6.45216-20. 
6. 97906-26, 


2.30216-30,  1.91976-30, 

6FH 

690 

5.93106-31,  4.40846-31, 

5FH 

69S 

2.25796-31,  2.39376-31, 

BFH 

700 

8.93496-31,  S. 48426-31/ 

8FH 

705 

BFH 

710 

3.02706-30,  3.95316-30, 

BFH 

715 

4.98136-30,  4.5997E-30, 

BFH 

720 

3.31496-30,  2.92816-30, 

BFH 

725 

1 .8636E-30,  1 .90851-30, 

BFH 

730 

2.56846-30,  3.74996-30, 

BFH 

735 

2.89036-30.  2.70386-30, 

BFH 

740 

2.9013E-30,  3.0585E-30, 

BFH 

745 

3.7365E-30,  4.0289E-30, 

BFH 

780 

8.65696-30,  1.03936-29, 

BFH 

755 

2.23576-29,  3.6498E-29/ 

BFH 

790 

BFH 

765 

6.55556-29,  6.66096-29, 

BFH 

770 

1.8786E-28,  2.51 50E-28 , 

BFH 

775 

9.06286-26,  1. 21186-27, 

BFH 

780 

3.76716-27,  4.48946-27, 

BFH 

785 

8.33846-27,  8.79336-27, 

BFH 

790 

8.20656-27,  7.72766-27, 

BFH 

795 

1 . 0394E-26 ,  1 . 06466-26 , 

BFH 

800 

1.12596-26,  1 .15496-28, 

BFH 

805 

1.17166-26,  1.1 149E-26, 

BFH 

810 

6.1517E-27,  6.08876-27/ 

BFH 

815 

BFH 

820 

1.88936-27,  1.400WE-27, 

BFH 

825 

4.21786-28,  2.96036-28, 

BFH 

830 

1.00486-28,  7.89706-29, 

BFH 

835 

3.69446-29.  3.35866-29, 

BFH 

840 

1.81726-29,  1.62246-29, 

BFH 

849 

9.23126-30,  7.92206-30, 

BFH 

850 

4. 1 5346-30 ,  3.31086-30, 

BFH 

859 

1.78406-30,  1.46646-30, 

BFH 

860 

6.70086-31.  5.83556-31, 

BFH 

889 

3.07496-31 ,  3.03101-31/ 

BFH 

670 

BFH 

879 

3.13156-31,  3.0329E-31 , 

BFH 

680 

3.04696-31.  1.69086-31. 

BFH 

889 

8. 10146-33,  6.75386-32, 

BFH 

B90 

6.5105E-32.  7.05376-32, 

BFH 

•85 

8.19956-32.  1.08846-31. 

BFH 

BOO 

1.32226-31,  1 .26346-31 , 

BFH 

905 

7,48576-32.  6. 80986-33. 

■FH 

910 

8.83946-33,  8.38586-32, 

BFH 

BIB 

1.30586-31,  '.61936-31, 

•FH 

930 

3.86936-31.  4.82956-31/ 

0FH 

929 

BFH 

•30 

1.59616-30,  2.08056-30. 

0FH 

935 

0,18561-30,  7,71506-30, 

BFH 

9*0 

3.03166-29.  2.38136-29. 

•FH 

94B 

8.91456-2#.  7.88406-29, 

BFH 

950 

2.14786-39,  2.58#ae-28, 

•FH 

855 

4.40086-23,  4.57656-20, 

BFH 

960 

4.07386-38.  3.88566-38. 

BFH 

BBS 

4.37506-28,  5.11506-28, 

•FH 

•TO 

5.04946-38.  8.80346-20, 

•FH 

#?B 

7. 14846-20.  7.07408-38/ 

•FH 

580 

DATA  F07C1 / 

C  7.3764E-28,  7.6618E-28, 
C  1.285 IE-27,  1.47488-37, 
C  2.8887E-27,  3.4493E-27, 
C  B.0728E-27,  8.3781E-27, 
C  5.89448-37,  8.1123E-27, 
C  6.0191E-27,  8.7762E-27, 
C  6.690SE-37,  7.40998-27, 
C  7.2193E-27,  8.3722E-27, 
C  2.S20TE-27,  1.8213E-27, 
C  4.11228-28,  2.8B99E-28, 
DATA  F0751/ 

C  1.3970E-28,  1.22388-28, 
C  8.8704E-29,  S.7615E-29, 
C  3.97688-29,  3.5202E-29. 
C  2.2135E-29,  1.9455E-29, 
C  B.4254E-30,  8.7414E-30, 
C  2.6745E-30,  2.2053E-30, 
C  9.iea8E-31,  8.0672E-31. 
C  4.50748-31,  3.76698-3* < 
C  1.9791S-31,  1.6964E-31, 
0  7.82558-32,  8.3698E-32, 
DATA  F0801/ 

C  3.9984E-32,  3.7513E-32, 
C  5.00901-32,  8.5801E-32, 
C2.5304E-31,  3.S403E-31 , 
C  1.0136E-30,  1.2311E-30, 
C  2. 1 370E-30 ,  2.5228E-30, 
C  4.4350E-30.  4.7760E-30. 
C  6.58B6E-30,  6.8753C-30, 
C  8.6081 8-30,  8.4232E-30, 
C  T.7263E-30.  8.1668E-30, 
C  1.01S5E-29,  1.0*848-29, 
DATA  F08S1/ 

C  8.734TE-30,  9.4484E-30. 
C  1 ,00518-39,  1,151  IE-29, 
C  3.2739E-29,  4.3194E-29, 
C  t .2055E-28,  1.4303E-28, 
C  3.31666-2B,  2.777TE-28, 
C  3.78548-28.  3.7324S-3B, 
C  3.T79TE-28,  3.87 136-28, 
C  4, 02T9E-28.  4.2 S81E-28, 
C  4.9499E-28,  4.T182E-28, 
C  2.4654E-98,  1.99438-28. 
OATA  F0901/ 

C  8.3T9IE-29,  8.0T90E-29. 
C  3.4T48E-28,  2,23878-29, 
C  1.4ISIE-29,  1 .24405-39. 
C  7.32*48-30,  B.50G8E-30, 
C  4,34318-30.  3.04461-30. 
C  2.46208-30,  2. *3788-30, 
C  I.IOm-30,  9.686S8-J*. 
C  4.08378-3* ,  3.04768-3*. 
C  1.0719E-31,  *.30381-33, 
C  I.UIK-M,  5.92438-32. 
CAT*  *0991/ 

C  1 .61508-32,  1 . l4i3t-33> 
C  4.06948-33,  3,65388*33, 
C  2.8C86E-33,  3. *2838-33. 


8.4182E-28,  9.3838E-28, 
1.8407E-27,  2.2109E-27, 
4.0336E-27,  4.395tE-27, 
5.328SE-27 ,  S.4498E-a7, 
6.431 7E-27 ,  8.45818-37, 
5. 724 IE-27.  5.7013E-27, 
8,2121 E-27 ,  8.0947E-27, 
5.4316E-27,  4.2186E-27, 
1.2858E-27,  8.8746E-28, 
2.1740E-28,  1.7990E-28, 

1 .0539E-28,  9.2386E-29, 
S.0434E-29,  4.6886E-29, 
3.1B54E-29,  2.9009E-29, 
1 . 6248E-29 ,  1 . 3368E-29 , 
5.4667E-30 ,  4.5Q05E-30, 
1 -8162E-30,  1.493SE-30, 
6.874SE-31,  6.2668E-31. 
3.2082E-31 ,  2.8085E-31, 
1.3887E-31.  1 . 1 179E-31 , 
8.326SE-32 ■  4.Q5S8E-32, 

3.7176E-32,  3.9148E-32, 
B.7787E-32 ,  1.2718E-31, 
4.B842E-31,  B.4840E-31, 
1.4203E-30,  1.S869E-30, 
7 .8816E-30 ■  3.4556E-30, 
5.2357E-30,  8.0827E-30, 
7.23498-30.  7.37898-30, 
6.3485E-30,  6.431  IE-30, 
9.0324E-30,  9.7643E-30. 
1.0I56E-29.  B.6792E-30, 

8.26478-20.  8.4363E-30, 
1.40378-29,  1.8066E-29, 
5.6902E-39.  7.7924E-29, 
*.69568-28,  1.03428-38, 
3.8943E-28.  2.8973E-29, 
2.7040E-28,  3. 13841-28. 
4.0135E-28.  4.28345-28, 
4.52208-28 >  4.894IC-28, 
4.2204E-28.  3.7701E-28. 
I. 46098-20.  1.1 1711-28, 

4.06958-39.  3.38598-39, 
3.02178-29.  * .8*918-28. 
1,08*48-29,  9.39BSE-30. 
8.7849E-30,  8.43098-30. 
3.33898-30.  3.4433E-30. 
1.84068-30,  1,63148-30. 
7. 88148-31.  8.84118-31, 
2,32368-31 .  1.77078-Ji, 
8.79878*33,  *<31368-32. 
8.35988-32.  3.32688-33. 

8.49988-33.  T. 08031-13, 
3.36708-33,  3.13418-33. 
3.73948-33.  3.QI94C-33, 


8FH 

985 

1.07618-27, 

BFH 

990 

2.83928-27, 

BFH 

995 

4.9231E-27, 

BFH 

1000 

S.5707E-27, 

BFH 

1005 

8.19948-27, 

BFH 

1010 

6.01608-27, 

BFH 

1015 

7.6145E-27, 

BFH 

1020 

3.2528E-27, 

BFH 

1025 

6.0316E-28, 

BFH 

1030 

1.55938-28/ 

BFH 

1035 

BFH 

1040 

7.8481E-29, 

BFH 

1045 

4.37708-29, 

BFH 

1050 

2.57638-29, 

BFH 

1055 

1.0842E-29, 

BFH 

1060 

3.49328-30, 

BFH 

1085 

1 .18188-30, 

8FH 

1070 

S.571 8E-31 , 

BFH 

1079 

2.48388-31 , 

BFH 

1080 

9.74996-32, 

BFH 

1085 

4.44B8E-32/ 

BFH 

1090 

BFH 

1095 

4,27028-32, 

BFH 

1100 

1.83758-31. 

BFH 

1103 

8.09118-31 , 

BFH 

1110 

1.80938-30, 

BFH 

1113 

3. 98608-30. 

BFH 

1120 

8-383SE-30, 

BFH 

1123 

8.82328-30, 

BFH 

1130 

7.22388-30. 

BFH 

1135 

1 .05338-29. 

8FH 

1140 

9.27238-30/ 

8FH 

1143 

BFH 

1130 

9.12818-30. 

BFH 

1153 

2,44838-29. 

BFH 

1180 

9.73788-29. 

BFH 

ties 

2. 22338-28, 

BFH 

1170 

2. 94178-28, 

BFH 

1175 

3.88438-28. 

•FH 

1180 

4.30048-28. 

*FM 

1185 

3. 01 728-28. 

BFH 

1180 

3. 09732-28, 

8FH 

1163 

8.33878-29/ 

IFM 

1300 

BFH 

1203 

2.78826-2*. 

3*H 

1210 

1.88978-2*. 

fFM 

1215 

7.942*8-30. 

SFH 

*330 

4. 72SH-30. 

BFH 

*335 

3.83098-30. 

BFH 

1330 

1.32818-30, 

BFH 

*335 

5.08038-31, 

BFH 

(240 

1.35486-31, 

ofm 

4  343 

7.3*1*8-32, 

BFH 

*280 

3.35718-33/ 

«fh 

ISS3 

#fh 

*5B0 

8. 17478-33. 

BFH 

*3*3 

3.83808-33. 

»FH 

*370 

6.79198-33, 

1FW 

*378 

C  1.04S5E-31,  1 . S239E-32, 
S  7.31936-32.-  8.94066-32, 
C  2.1816E-31-,  2.27506-31  > 
C  2.2160E-31V  2.0391E-31, 
C  2.0023E-31 ,  2.22446-31. 
C  3.6923E-31,  3.74896-31, 
C  3.3037E-31,  3.17246-31. 
DATA  FI 001/ 

C  2.3708E-31,  1.9452E-31. 
t  1.44086-31,  1.94B3E-31, 
C  4.01806-31,  S.2287E-31  , 
C  2.09986-30,  2.6S83E-30, 
C  8.3817E-30,  7.14126-30. 
C  1.0978E-29,  1.1052E-29. 
C  9.6590E-30,  1.0332E-29, 
C  1.8655E-29,  2.I46SE-29, 
C  3.3037E-29,  3.63476-29, 
C  S.8044E-29,  8.1916E-29. 
CAT A  FI 031/ 

C  9.4359E-29,  9.73876-29. 
C  1 . 1905E-28,  1.2194E-28, 
C  1. 30116-28,  1.25116-28, 
C  1.3623E-38.  1.S678E-28. 
C  1.9000E-23,  1.7812E-28. 
C  7.2987E-29,  9.2489E-29, 
C  1.24561-29,  8.37446-30, 
C  6.85216-30.  T.4334E-30, 
C  1 . 2359E-29,  1.3363E-39, 
C  1.6184E-29,  1 .95576-29, 
OATA  F1101/ 

C  1 . 7175E-29,  1 >64751-39 . 
C  1.3459E-29,  1.4028E-29. 
C  3. 1 3 '96-29,  2.10201-29, 
C  1.3552E-29,  1,01881-39. 
C  2.54411-30,  1 .69996-30 , 
C  3.1108E-31,  2.JI6IE-J1 . 
C  9.7I48E-33,  8. 45196-33, 
C  4.0S17E-J2.  3,81 736-32. 
C  1.34241-33,  i .03588-32 . 
C  J. 86*21-33,  2. 16311-33, 
CAT*  FI (31/ 

C  9. 33306-34,  9.410SC-34, 
C  1.0T43C-3J,  1.39386-33. 
C  8. 69171-33,  1.008*1-33, 
C  4.45*56-32.  *.Jl*Tt-32. 
C  I.MTM-31,  1  *80445-31 , 
C  2.33036-31,  2.39055-3 1. 
C  1.77936-31,  i,«A39tOI, 
C  3.1*931-31,  3. TITIt- 31 , 
C  8, *7036-31,  C. 37445-31 , 
C  »,»?2«6-31.  t.MME-30. 
OATA  FlJoi/ 

C  2.377*1-30,  2.MI8E-19, 
C  3. *8*21-30,  •.13231-JO, 
C  3.7*421-36,  3.858IF-JS. 
C  9.12166-30,  i. 19201-30, 
C  9.81*95-30.  8.19*31-36. 
C  8.33*06-30,  S.87535-30, 
C  3.441*4-30,  I .*8*08-30, 


2. 39328-33,  3.4231E-32, 
1.2193E-31,  1.4742E-31, 
2 . 2902E-31 ,  2.3688E-31 , 
1 . 9903E-3 1 ,  3 . 0086E-3 1 , 
2.5450E-31.  3.1 226E-31 ■ 
3.8124E-3I,  3.831 7E-31 , 
2.9840E-31 ,  2.83016-31 , 

1.6332E-31,  1.5174E-31, 
1.8642E-31,  3.38846-31. 
7.2754E-31.  1.0511E-30, 
3.30B3E-30,  4.2638E-30, 
6.59S3E-30,  9.9715E-30, 
1.1095E-29,  1 .084 IE-29, 
1  19745-29,  1.38126-29, 
3.4779E-29,  3.7370E-29. 
3.95876-29,  4.47011-39. 
6.9613E-28,  7. 78638-29, 

1.0658E-28.  1 .07465-28 , 
1.3145E-28,  1 .37386-28 , 
t . 1805E-38,  1.215SE-36. 
1 .7886E-38,  1.9933E-28, 
1.5S2IE-28,  1.3593E-28, 
3.5673E-39,  3.4206E-29. 
7.8379E-30,  6.996QE-30 , 
8.86585-30,  9.4973E-30, 
1.5025E-29,  1.5368E-29, 
1.703SE-39.  1.69186-28, 

I. 53355-39.  1.42726-29, 
1.5 1926-39,  1 .70685-39, 
1.9942E-29,  1.16545-29, 
7.8540S-30.  5.70325-30, 
1.11321-30,  8.19895-31. 
1.761U-3I,  1.43806-31  , 
6.53936-32,  S.4H36-32, 
2.86081-33,  2.27246-33. 
7.30*46-33,  5.45006-33, 
1.6*806-33.  1 ,308*2-33, 

7.30515-34.  *.*7*86-34. 
3.13085-33.  3.122*5-33. 

I .4*245-32.  3. 2783**33. 
*.4 iilt-33,  1.1 J036-31. 
2.34816-31.  3.3*055-3*, 
3.234*6-31 ,  l. 83041-11. 
1.91485-31,  3.1*8*6-31 , 
4.3MM-3I.  4 . *7095-31 , 
T. 01635-31.  7. *1 «4|-3l, 
1.37005-30,  I. *14*5-30, 

3. *7706-30.  3.340*6-30. 
4,03*36-30.  4.03*96-30. 
4.4*195-30.  8. 05375-30. 
8.97*45-30.  9. 33306-39. 
*.*0056-40.  9. *5035-30, 
6, C3?l«-30,  3. *8305-30. 
1.39085*30,  9.31585-31. 


5.05151-33, 

6FH 

12*0 

1. 82895-31, 

8FH 

1219 

2.4302E-31 , 

•FH 

1290 

1 . 93045-3 t , 

•FH 

1299 

3.45605-31 , 

•FH 

1300 

3.47375-31, 

•FH 

1309 

2.58575-31/ 

•FH 

1310 

•FH 

1319 

1 .42085-31 , 

■FH 

1320 

3.01815-31, 

•FH 

1329 

1.45315-30, 

■  FH 

1330 

5.31325-30, 

•FH 

1339 

1.07986-28, 

■FH 

1340 

9.78816-30. 

8FH 

1349 

1.58296-29, 

*FH 

1350 

2.89156-29. 

■FH 

1359 

5.01226-29, 

■FH 

1390 

8.28206-29/ 

■FH 

1399 

■FH 

1370 

1.12106-28. 

•FH 

1375 

1. 36345-28, 

•  FH 

1340 

1.23905-28, 

•FH 

13*5 

1.98856-28, 

•FH 

1390 

8,58356-29. 

■FH 

1399 

1 .98776-29, 

•fn 

1400 

9.84516-30. 

■FH 

1409 

1. 0791C-29, 

•FH 

1410 

1.91526-29, 

8Fh 

1419 

1.72376-29/ 

BrH 

1420 

•  FH 

1429 

1.32826-29, 

•  FH 

1430 

1.90856-29, 

•FH 

1439 

1.83916-29, 

•FH 

1440 

3.92476-30, 

•FH 

1449 

4.52556-31, 

•FH 

1490 

1.16016-31, 

•FH 

1459 

4.79246-32, 

OFh 

1490 

1.74386-32, 

•FH 

149) 

4.05516-33, 

IFH 

147* 

1.01505-33/ 

•FH 

1479 

CFM 

1490 

7.99405-34, 

•FH 

1495 

4.8*536-33, 

•FH 

1490 

3.29175-32. 

•FH 

1499 

1.34316-31. 

•FH 

1300 

3.3*1*5-35, 

•FH 

1509 

1.83836-31, 

*F«  5510 

3.810*5-31, 

•FM 

1819 

8.32*41-35, 

•FH 

1329 

•.83876-31, 

•FH 

1939 

1.8*136-30/ 

IFH 

1830 

IFH  1839 

3.7*356-10, 

3, **533-30, 

•FH 

184* 

•FM  IMS 

8.0*155-30, 

<fh 

188* 

9-280*5-30, 

•FH 

1888 

*.*78(6-30. 

•FH 

189* 

3.H475-30. 

•  FH 

1899 

7.377*5-31. 

*FH  1*76 

M 


C  5.6048E-31, 
C  7. 847 IE-31 , 
C  4.9075E-31 , 
DATA  FI 251/ 

C  5.3183E-31 . 
C  5.4409E-31 , 
C  4.9050E-31, 
C  6.4367E-31, 
C  2.9651E-31, 
C  4.8805E-32, 
C  6.27556-33, 
C  2.49036-33, 
C  6. 451  IE-34 , 
C  1.6923E-34, 
DATA  FI 301/ 

C  1 . 1 9256*35. 
C  6.9908E-37, 
C  6.0958E-38, 
C  1.4020E-36, 
C  3.1074E-35, 
C  5.2179E-34, 
C  5.2132E-33, 
C  1.1515E-32, 
C  3.4135E-32, 
C  1 .2724E-31 , 
DATA  FI 351/ 

C  4.1788E-31 , 
C  9.7143E-31, 
C  1.4539E-30, 
C  3.0096E-30, 
C  5.S043E-30, 
C  7.0680E-30, 
C  8.02C.3E-30, 
C  6.5844E-30, 
C  1.0229E-29, 
C  4.7491E-30, 
DATA  F1401/ 

C  8.6715E-31  , 
C  3.9728E-31  , 
C  4.6831E-31  , 
C  7.0801E-31, 
0  1.0349E-30, 
C  1 . 5005E-30 , 
C  1.4034E-30, 
t  1.3612E-30, 
C  1.9079E-30, 
C  6.8796E-31 , 
DATA  F 1 451 / 

C  8.0142E-32, 
C  2.3996E-32, 
C  2.3595F.-32, 
C  1.S114E-32, 
C  7.2359E-33, 
C  1.0826E-33, 
C  1 .7040E-34, 
C  3.7647E-35, 
C  4.77086-3-1, 
C  2.3S98E-33, 
OATA  FI 501 / 


4.2457E-31 , 
3  10656-31 , 
5.3069E-31 , 


5.1783E-31, 
5..2659E-31  . 
5.1700E-31 , 
5.9908E-31 , 
2.2286E-31 , 
3.1747E--32, 
4.9752E-33, 
1.9316E-33, 
5.3300E-34, 
1.1816E-34, 


6.7380E-31 , 
3. 9000E-31 , 
4.8921E-31 , 
7.4555E-31 , 
1 . 1 047E-30 , 
1.52666-30, 
1.3002E-30, 
1.5225E-30, 
1 .7478E-30, 
4.64666-31  , 


S.4C66E-32, 
2.3804E-32, 
2.2575E-32, 
1 .4422E-32, 
6.3307E-33. 
7.2364E-34, 
9.2181F.-35, 
5.6428E-35, 
6.9789E-34, 
3.6636E-33, 


5.2042E-31 , 
5.1 696E-31 > 
5.6818E-31. 
5.4470E-31 , 
1 .6742E-31 . 
2.00B7E-32, 
4.0047E-33, 
1.4996E-33, 
4  374 IE-34, 
6.7071E-35, 


6. 8948E-3S , 
3. 7896E-37 , 
8.9E 13E-38, 
2.7167E-36, 
5.4789E-35, 
8.8554E-34, 
6.3519E-33, 
1.4034E-32, 
4.5517E-32, 
1 .6478E-31 , 


5.0081C-31 , 
1 . 0805E-30 , 
1 ,60496-30, 
3.5816E-30, 
6.0324E-30, 
7.5218E-30, 
7.72716-30, 
7. Cl  636-30, 
3.9296E-30, 
3.5280E-30, 


3.9329E-32, 
2.3242E-32, 
2 . 1 298E-32 , 
1 , 2946E-32 , 
3.8837E-33, 
4.5201E-34. 
5. 29346-35, 
9,51 39E-35 , 
9.7267E-34, 
4.79006-33, 
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5.4422E-31 , 
5.1 726E-31 , 
6.3129E-31 , 
4.79036-31  , 
1 .1827E-31  , 
1 . 2550E-32, 
3.5602E-33, 
1 . 2059E-33, 
3.4916E-34, 
3.6474E-35, 


3.9661E-36, 
2.0280E-37, 
1 .7201 E-37 , 
5.1478E-36, 
9.5640E-35, 
1 .4764E-33, 
7.3174E-33, 
1 .6594E-32 , 
5.5832E-32, 
2.0588E-31 , 


2.2576E-36, 
1 .1016E-37, 
3. 4964E-37 , 
9.5500E-36, 
1.66356-34, 
2.3331 E-33 , 
B.3752E-33, 
2.1021 E-32 , 
7.2303E-32, 
2.5543E-31 , 


6.0144E-31 , 
1 .1713E-30, 
1.7680E-30, 
4.0851E-30, 
6.4983E-30, 
7.5723E-30, 
7.1 676E-30 , 
7.7503E-30, 
8.99 i 1 E-30 , 
2.4349E-30, 


6.9599E-31 , 
1 .271 1 E-30, 
2.0557E-30, 
4.6111 E-30 , 
6.7498E-30, 
7.7340E-30, 
6.781 9E-30 , 
8.8157E-30, 
7.7813E-30, 
1 .6502 E-30, 


5.3910E-31 , 
3.9803E-31 , 
5.1995E-31 , 
7.9754E-31 , 
1 . 2024E-30, 
1.5S35E-30, 
1.2225E-30, 
1 .7202E-30, 
1 .52S9E-30, 
2.97236-31, 


4.5554E-31  , 
4. 1514E-31 , 
5.7242E-31, 
0.7616E-31 , 
1.2990E-30, 
1.5623E-30, 
1.1989E-30, 
1 ,9471 E-30 , 
1 . 2625E-30, 
1 .8508E-31 , 


3, 1 865E-32, 
2.4476E-32, 
2.C038E-32, 
1  0837E-32, 
2.667BE-33, 
3.0803E-34, 
3.5774E-36, 
1.73226-34, 
1.46626-33. 
6.51296-33, 


2.7865E-31  , 

8FH 

1575 

4 . 3606E-31 , 

BFH 

1580 

5.3832E-31/ 

bfh 

1585 

BFH 

1590 

5.56566-31, 

BFH 

1595 

4.90036-31  , 

BFH 

1600 

6.6542E-31, 

BFH 

1605 

3.96696-31 , 

BFH 

1610 

7.7739E-32, 

BFH 

1615 

8.7434E-33, 

BFH 

1620 

3.0930E-33, 

BFH 

1625 

8.72426-34, 

BFH 

1630 

2.65606-34, 

BFH 

1035 

2.0686E-35/ 

BFH 

1640 

BFH 

1645 

1 .26696-35, 

BFH 

1650 

6.7816E-38, 

BFH 

1655 

7.0722E-37, 

BFH 

ieeo 

1.73766-35, 

BFH 

1665 

2. 91456-34, 

BFH 

1670 

3.S996E-33, 

BFH 

1675 

9.8916E-33, 

BFH 

1680 

2.7416E-32, 

BFH 

1685 

9.94846-32', 

BFH 

1690 

3.36256-31/ 

BFH 

169# 

BFH 

1700 

8.44086-31, 

BFH 

1705 

1.3727E-30, 

BFH 

1710 

2.49S7E-30, 

BFH 

1715 

5.21976-30, 

BFH 

1720 

7.0545E-30, 

BFH 

1725 

8.0081E-30, 

BFH 

1730 

6.4753E-30, 

BFH 

1735 

9.«022E-30, 

BFH 

1740 

0.37856-30, 

BFH 

1745 

1.16226-30/ 

BFH 

1750 

BFH 

1TS6 

4.1 300C-31 , 

BFH 

1780 

4.3374E-31 , 

■FH 

1785 

6.27596-31, 

BFH 

1770 

9, 1 171E-31 , 

BFH 

1775 

1 . 3725E-30 , 

BFH 

1780 

1.50096-3C, 

BFH 

17BS 

1.24116-30, 

BFH 

1790 

1.99316-30, 

BFH 

1795 

9.33326-31, 

BFH 

1800 

1.21066-31/ 

BFH 

1809 

bfh 

1510 

2.74206-32, 

BFH 

IBIS 

2.93316-32, 

BFH 

1820 

1 .82636-32, 

BFH 

1825 

9.12826-33, 

BFH 

1830 

1 ,67696-33, 

BFH 

1839 

2.23776-34. 

BFH 

1840 

3.14316-35, 

BFH 

1845 

2.88296-34, 

bfh 

1880 

1.94296-33, 

•  FH 

1865 

7.76396-33/ 

BFH 

1160 

•FH 

1966 

C  9.3774E-33,  1.14676-32,  1.3547E-32, 
C  1.9069E-32,  2.13526-32,  2.3071E-32, 
t  3.436SE-32,  4.3181E-r32,  5.6107E-32, 
C  1.0974E-31,  1.3742E-3V,  1 .63376-31, 
C  2.6733E-31,  3.0247E-^1 ,  S.3737E-31, 
C  4.3870E-31,  4.4685E-31,  4  4881 E-31 , 
C  4.4268E-31,  4.686SE-31 ,  S.3428E-31, 
C  5.4587E-31,  5.6360E-31 ,  5.7740E-31, 
C  8. 6981 E-31,  7.4319E-31,  7.7977E-31, 
C  6.4606E-31,  5.5498E-31,  4.3944E-31, 
DATA  F1S51/ 

C  1.9162E-31,  1.3698E-31,  1.0173E-31, 
C  4.7962E-32,  4.0811E-32,  3.3912E-32, 
C  2. 21 8SE-32 ,  2.2139E-32,  2.2499E-32, 
C  2.5459E-32,  2.9295E-32,  3.4196E-32, 
C  4.4610E-32,  4.9377E-32,  5.4372E-32, 
C  6.1278E-32,  6.2940E-32,  6. 49476-32, 
C  8.2608E-32,  8.4971E-32.  8.3484E-32, 
C  7.8468E-32,  7.5943E-32,  7.9096E-32, 
C  9.2547E-32,  B.9322E-32,  8.2177E-32, 
0  4.4470E-32,  3.5881E-32,  2.6748E-32, 
DATA  FI 601/ 

C  3. 2645E-33 ,  2.9943E-33,  1.7316E-33, 
C  3.296BE-34,  1.8499E-34,  1.0192E-34, 
C  1.4968E-35,  7.5244E-36,  3.6852E-36, 
C  3.6717E-37,  1.6076E-37,  6.8341E-38, 
C  4. 3835E-39,  1.6587E-39,  6.3044E-40, 
C  5. 1 708E-4C,  1.1957E-39,  2.7853E-39, 
C  3.040SE-39,  8.4059E-38,  1.3169E-37, 
C  9. 9705E-37 ,  1 .8802E-36,  3.4788E-30. 
C  2.0198E-33,  3.S665E-3S,  6.3053E-35, 
C  3.28S8E-34,  6.51 65E-34 ,  8.6231E-34, 
DATA  F16S1/ 

C  2.S266E-33,  3.82S4E-33.  5.1398E-33, 
C  1.1914E-32,  1.E086E-32,  2.0469E-32. 
C  4.4980E-32.  5.5.1S8E-32,  6.7863E-32, 
C  1 . 2983E-31 ,  1.6270E-31,  1.9609E-31, 
C  3.0918E-31,  3.4930E-31 ,  3.9330E-31. 
C  5. 1 14tE-3t ,  S.4108E-31,  5.B077E-31, 
C  8.1064E-31,  B. 19735-31.  8.1894E-31. 
C  7.9225E-31,  7.82S6E-31 .  7.8488E-31. 
C  8,3408E-31,  8.S774E-31,  8.58706-31, 
C  9.0014E-31.  9.2522E-31,  B.89t3E-31, 
DATA  F1701/ 

C  8.6797E-31,  4.4I63C-31.  3.236BE-31 , 
C  1. 17335-31,  8.3273E-32,  6.3B0SE-32. 
C  3.78I0E-37,  3.09776-32.  2.5210E-32. 
C  1.B107E-32,  1.639SE-32.  14890E-32. 
C  1 . 2910E-32,  1 ,34716-32 ,  1.48B9C-32, 
C  1 , U043E-32,  2.0S02E-32.  2.3B74E-32. 
C  4.0190E-3.',  4.S808E-32,  8.2212E-3J. 
C  7 , 2S0BE-32 ,  T.6837E-32.  8,»1t3e-32, 
C  1. 07236-31,  1.07496-31.  1.1 3806-31. 
6  1.24036-31 ,  1.25686-31.  1.2332E-31, 
OATA  FITS!/ 

C  1.094SE-31,  1.1 1786-31,  1.208SE-31. 
C  1.64806-31,  1.74036-31.  1.70046-31, 
G  1.08446*31,  8. 09195-3*.  8,80166-33. 
C  1.88696-33,  1.13016-32,  8.23356-33. 


1.5686E-32,  1.6893E-32,  BFH  1870 
3.4759E-32,  2.B247E-32,  BFH  1879 
7.0017E-32,  8.6408E-32,  BFH  1880 
2.0157E-31,  2.3441E-31,  BFH  1885 
3.8618E-31,  4. 1 343E-31 ,  BFH  1890 
4.5S26E-31,  4.3628E-31,  BFH  1895 
5.4020E-31,  5.3218E-01,  BFH  1900 
5.6426E-31,  6.0399E-31,  BFH  1905 
7.6539E-31,  7.1610E-31,  BFH  1910 
3.3769E-31,  2.5771E-31/  BFH  1915 

BFH  1920 

7.3925E-32,  6.1938E-32,  BFH  1923 
2.86256-32.  2.4504E-j32fr  BFH  1930 
2.276JE-32.  2.3985E-32,  BFH  1935 
3.6155E-32,  4.0733E-32,  BFH  1940 
5.7304E-32,  6.1640E-32,  BFH  1945 
6.8174E-32,  7.5190E-32,  BFH  1950 
8. 1 888E-32,  7.8552E-32,  BFH  1955 
8.6869E-32,  9.1303E-32,  BFH  1960 
7.3408E-32,  5.7966E-32,  BFH  1966 
1.7074E-32,  9.67006-33/  BFH  1970 

BFH  1975 

1.0039E-33,  5.7B59E-34,  BFH  1900 
5.5015E-35.  2.9040E-35,  BFH  1985 
1.7568E-36,  8.1464E-37.  BFH  1990 
2.8195E-38,  1.1286E-38,  BFH  1995 
2.9014E-40,  2.7148E-40,  BFH  2000 
5.3427E-39,  1.4070E-36,  BFH  2005 
2.6443E-37,  5.1917E-37,  BFH  2010 
6.3328E-38.  1.1370E-35,  BFH  2015 
1 . 1309E-34,  2.1206E-34,  BFH  2020 
1.2776E-33,  1 .77B0E-33/  BFH  2025 

BFH  2030 

6.6289E-33.  B.7481E-33,  BFH  2036 
2.5761E-32.  3.4864E-32,  BFh  2040 
8.S720E-32,  1 .0700E-31 ,  BFH  2045 
2.2663E-31,  2.59S3E-31,  BFH  2050 
4.4208E-31.  4.6431E-31,  BFH  2055 
B.5050E-31 ,  7.2128E-31,  BFH  2060 
8.3081E-31,  8.0240S-31,  BFH  2065 
6.0041E-31.  8.1585E-31,  BFH  2070 
B. 61046-31.  8.8516E-31,  BFH  2075 
7.83B1E-31.  B.B5BBE-31/  BFH  2080 

BFH  2085 

2.3259E-31,  1.6B35E-31,  BFH  2090 
4 .B903E~32.  3.8831E-32.  BFH  2098 
2.2913E-32.  2.0341E-32.  BFH  2100 
1.351 6E-32 ,  1 . 2542E-32 ■  BFH  2105 
1 .S8B9E-32,  1 .69895-32  ■  BFH  2110 
2.7294E-32.  3. 33536-32 .  BFH  2115 
B.8856E-3Q,  6.59916-32.  BFH  2120 
9.4832E-32.  8.96786-32.  BFH  2128 
1.17746-31,  1.17438-31,  BFH  2130 
1 . 1 7826-31 ,  1.10866-31/  BFH  2135 

BFH  2140 

1.30376-31.  1.47306-31,  BFH  2145 
1.BI 176-31,  1. 33366-3 t,  BFH  2190 
3.71996-32.  2.81946-32,  BFH  2189 
8.02706-33,  4. 82096-33,  8FM  2160 
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C  4.1313E-33,  3.62435-33, 

3.2575E-33, 

2.7730E-33,  2.5292E-33, 

BFH 

2165 

C  2. 3062E-33,  2.1126E-33, 

2. 1S56E-33, 

2.1213E-33,  2.2103E-33, 

BFH 

2170 

C  2.1927E-33,  2.0794E-33, 

1.9533E-33, 

1 . 6592E-33,  1.4521E-33, 

BFH 

2175 

C  1 . 1 393E-33 ,  8.3772E-34, 

6.2077E-34, 

4.3337E-34.  2.7165E-34, 

BFH 

2180 

C  1.6821E-34,  9.5407E-35 , 

5.3093E-35, 

3.0320E-3S.  1.7429E-35, 

BFH 

2185 

C  9.9828E-36,  5.6622E-36, 

3.1672E-36. 

1.7419E-38,  9.39B5E-37/ 

BFH 

2190 

DATA  FI 801/ 

BFH 

2195 

C  4.96S6E-37,  2.S652E-37, 

1 .2942E-37, 

6.3695E-38,  3.0554E-39, 

BFH 

2200 

C  1 .4273E-38,  S.4890E-39, 

2. 8691 E— 33, 

1.2331E-39,  5.1485E-40, 

BFH 

2205 

C  2.0875E-40,  0. 

0.  . 

0.  ,0. 

BFH 

2210 

CO.  ,0. 

0.  , 

0.  ,0. 

BFH 

2215 

CO.  ,0.  , 

0.  , 

0.  ,0. 

BFH 

2220 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2225 

CO.  ,0. 

0. 

o.  ,0. 

BFH 

2230 

CO.  .0. 

0.  , 

0.  ,0. 

BFH 

2235 

CO.  ,0. 

0.  , 

0.  .0. 

BFH 

2240 

CO.  ,0.  . 

0.  , 

o.  ,0.  / 

BFH 

2245 

DATA  FI 861/ 

BFH 

2250 

CO.  ,0.  , 

0. 

0.  ,0. 

BFH 

2255 

CO.  .0.  , 

0.  , 

0.  .0. 

BFH 

2260 

CO.  ,0. 

0.  , 

0.  ,0. 

BFH 

2265 

CO.  .0. 

o. 

0.  .0. 

BFH 

2270 

CO.  ,0. 

0.  , 

o.  ,0. 

BFH 

2275 

CO.  ,0. 

0. 

o.  ,0. 

BFH 

2280 

CO.  ,0.  , 

0.  , 

o.  .0. 

BFH 

2235 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2290 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2295 

CO.  ,0. 

0. 

0.  ,0.  / 

BFH 

2300 

DATA  F1901/ 

BFH 

2303 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2310 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2315 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2320 

CO.  ,0. 

0.  , 

o.  .0. 

BFH 

2325 

CO.  ,0. 

0. 

0.  .0. 

BFH 

2330 

CO.  ,0, 

0. 

o.  ,0. 

BFH 

2335 

CO.  ,0.  , 

0.  , 

0.  .0. 

BFH 

2340 

CO.  ,0.  , 

0. 

o.  ,0. 

BFH 

2345 

CO.  ,0. 

0. 

0.  .0. 

BFH 

2350 

CO.  ,0. 

0. 

o.  ,0.  / 

BtH  2355 

DATA  F18S1/ 

BFH 

2360 

CO.  ,0. 

o.  , 

0.  ,0. 

BFH 

2365 

CO.  .0, 

0. 

o.  ,0. 

BFH 

2370 

C  C  ,0. 

o.  , 

o.  ,0. 

BFH 

2375 

CO.  ,0. 

0. 

0.  .0,  , 

BFH 

2360 

CO.  ,0. 

0.  , 

0.  ,0.  , 

BFH 

2395 

CO.  ,0. 

0. 

0.  .0. 

BFH 

2390 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2395 

CO.  ,0. 

0. 

0.  ,0. 

BFH 

2400 

C  3.  .0. 

0.  , 

o.  ,0. 

BFH 

2405 

co.  ,0. 

0.  , 

0.  ,0.  / 

BFH 

2410 

DATA  F2001/ 

BFH 

2415 

CO.  / 

BFH 

2420 

BFH 

2435 

END 

BFH  2430 
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SLOCK  OATA  TRFN 

TRE 

100 

BLOCK  OATA 

TRE 

105 

LOWTRAN  TRANSMITTANCE  FUNCTIONS 

TRE 

110 

COMMON  /TRFWFO/  TR(67) , FW(67) , FO(67) 

TRE 

115 

OATA  TR/ 

TRE 

120 

1  .9988, 

.9980,  .9960, 

.9940, 

.9920,  .9900,  .9800, 

.9700, 

TRE 

125 

a  .9600, 

.9500,  .9400, 

.9300, 

.9200,  .9100,  .9000, 

.8800, 

TRE 

130 

3  .8600, 

.8400,  .8200, 

.8000, 

.7800,  .7600,  .7400, 

.7200, 

TRE 

135 

4  .7000, 

.6800,  .6600, 

.6400, 

.6200,  .6000,  .5800, 

.5600, 

TRE 

140 

S  .5400, 

.5200,  .5000, 

.4800, 

.4600,  .4400,  .4200, 

.4000, 

TRE 

145 

6  .3800, 

.3600,  .3400, 

.3200, 

.3000,  .2800,  .2600, 

.2400, 

TRE 

150 

7  .2200, 

.2000,  .1800, 

.1600, 

.1400,  .1200,  .1000, 

.0800, 

TRE 

155 

8  ,0600, 

.0400,  .0300, 

.0200, 

.0150,  .0100,  ,0080, 

.0060, 

TRE 

160 

9  .0040, 

.0020,  .0010/ 

TRE 

165 

FW  WATER  VAPOR  AND  UNI FORMALY  MIXED  TRANSMITTANCE  TABLE 

TRE 

170 

OATA  FW/ 

TRE 

175 

1-2.3468,-2.0362,-1.6990,-1.4815,-1 .3279,-1.2007,  -.7825, 

-.5229, 

TRE 

ISO 

2  -.3468, 

-.1938.  -.0655, 

.0414, 

.1553,  .2430,  .3324, 

.4838, 

TRE 

185 

3  .6128, 

.7243,  .8261, 

.9191 , 

1.0000,  1.0792,  1.1461, 

1 .2122, 

TRE 

190 

4  1.2672, 

1.3284,  1.3892, 

1 .4409, 

1.4955,  1.5441,  1.5966, 

1  .6435, 

TRE 

195 

S  1.6857, 

1.7340,  1.7782, 

1.8261 , 

1.8692,  1.9191,  1.9638, 

2.0086, 

TRE 

200 

6  2.0607, 

2.1038,  2.1461, 

2.1875, 

2.2304,  2.2788,  2.3263, 

2.3717, 

TRE 

205 

7  2.4183, 

2.4698,  2.5159, 

2.5740, 

2.6284,  2.6902,  2.7559, 

2.8261, 

TRE 

210 

8  2.9031, 

3.0000,  3.0607, 

3.1461 , 

3.2041,  3.2718,  3.3054, 

3.3444, 

TRE 

215 

S  3.3979, 

3.4914,  3.5682/ 

TRE 

220 

F  INFRARED  0  OZONE  TRANSMITTANCE  TABLE 

TRE 

225 

OATA  FO/ 

TRE 

230 

1-1.6778,-1 .3980,-1.1192, 

-.9508, 

-.8239,  -.7258,  -.4318, 

-.2366, 

TRE 

235 

2  -.1074, 

0.0000,  .0969, 

.1761 , 

.2304,  .3010,  .3522, 

.4624, 

TRE 

240 

3  .5563, 

.6435,  .7243, 

.7924, 

.8573,  .9191,  .9731, 

1.0253. 

TRE 

245 

4  1.0719, 

1.1173,  1.1614, 

1.2095, 

1.2480,  1.2900,  1.3263, 

1 .3617, 

TRE 

250 

5  1.3979, 

1,4393,  1.4698, 

1.4963, 

1.5314,  1.5682,  1.6021, 

1 .6335, 

TRE 

255 

6  1.6721, 

1.7076.  1.7462, 

1.7924, 

1.8325,  1.8865,  1.9395, 

2.0000, 

TRE 

260 

7  2.0607, 

2.1206,  2.1903. 

2.2652, 

2.3385,  2.4313,  2.6185, 

2.6435, 

TRE 

265 

8  2.7853, 

2.9777,  3.1072, 

3.2553, 

3.3617,  3.4771,  3.5563, 

3.6233, 

TRE 

270 

9  3.7076, 

3.8325,  3.9345/ 

TRE 

275 

END 

TRE 

280 

BLOCK  OATA  C1D  OC1  100 

C5  BLOCK  OATA  0C1  108 

C  WATER  VAPOR  BANO  MODEL  ABSORPTION  COEFFICIENTS  OC1  110 

C  Cl  LOCATION  1  V  *  350  CM-1  DCt  115 

C  Cl  LOCATION  1770  V  «  9195  CM-1  DC1  130 

C  Cl  LOCATION  1771  V  ■  9875  CM-1  OC1  135 

C  Cl  LOCATION  3355  V  >  12795  CM-1  CC1  130 

C  Cl  LOCATION  2356  V  ■  13400  CM-1  OC1  135 

C  Cl  LOCATION  2580  V  «  14520  CM-1  DC1  140 

C  COMMON  /C1/C1 (2580)  OC1  145 

COMMON  /Cl/  C01(190),C191(190),C381(190),C571(190),C761(190),  OC1  150 

X  C951(190),CT141(190),C1331(190),C1521(190),C1711(190),  OC1  155 

X  C190t(190),C2091(190) .C2281 { 190) .C2471 ( 1 10)  DC1  160 

DATA  COI/  OC1  165 


1 

3 

.93, 

3.72, 

3.54, 

3.42, 

3.37, 

3.37, 

3.36, 

3 

.33, 

3.25, 

3.13, 

0C1 

17? 

2 

3 

.02, 

2. 96, 

2.97, 

3.00, 

3.08, 

3.12, 

3.08, 

3 

.03, 

3.00, 

3.01, 

0C1 

175 

3 

3 

.03, 

3.07, 

3.05, 

3.01, 

2.94, 

2.83, 

2.71, 

2 

.62, 

2.56, 

2.57, 

DC1 

180 

4 

2 

.62, 

2.67, 

2.72, 

2.71, 

2.60, 

2.46, 

2.35, 

2 

.26, 

2.22, 

2.23, 

DC1 

185 

5 

2 

.19. 

3.17, 

2.17, 

2.20, 

2.28, 

2.34, 

2.42, 

2 

.39, 

2.20, 

3.01 , 

DC1 

190 

8 

1 

.92, 

1  .83, 

1 .78, 

1.79, 

1.81, 

1.84, 

1.83, 

1 

.80, 

1.71, 

1.51, 

DCt 

198 

7 

1 

.39, 

1.30, 

1.25, 

1.18, 

1.19, 

1 .18, 

1.21, 

1 

.33, 

1.47, 

1.53, 

0C1 

200 

8 

1 

.54, 

1.38, 

1.12, 

.89, 

.69, 

.49, 

.60, 

.71, 

.79, 

.99, 

DCt 

208 

9 

.86, 

.73, 

.53, 

.43, 

.61, 

.52, 

.67, 

.73, 

.60, 

.83, 

DC1 

210 

$ 

.80, 

.63, 

.47, 

.32, 

-.08, 

-.21, 

-.29, 

- 

.21 , 

-.01, 

.08, 

DC1 

215 

5 

.16, 

.09, 

-.03, 

-.21, 

-.37, 

-.35, 

-.30, 

- 

.31, 

-.37, 

“•42, 

DC1 

220 

* 

- 

.48, 

-.42, 

-.40, 

-.39, 

-.43, 

-.77, 

-.83, 

- 

.86, 

-.79, 

-.60, 

OCt 

225 

$ 

- 

.50, 

-.42, 

-.39, 

-.38, 

-.37, 

-.40, 

-.51, 

- 

.67, 

-.82. 

-.58, 

DC1 

230 

$ 

- 

.40, 

-.32, 

-.21, 

-.09, 

-.18, 

-.16. 

-.19, 

- 

.28, 

-.33, 

-.35, 

OCt 

335 

$ 

- 

.28, 

-.22, 

-.10, 

-.05, 

-.11, 

-.13, 

-.27, 

— 

.27, 

-.18, 

-.06, 

0C1 

240 

$ 

.11, 

.23, 

.26, 

.19, 

.11 . 

0.00, 

-.09, 

.02, 

.06, 

.12, 

DCt 

245 

5 

.22, 

.28, 

.39, 

.54, 

.68, 

.75, 

•  79, 

.79, 

.71, 

.69, 

OCt 

250 

$ 

.76, 

.88, 

1.01  , 

.1.16, 

1.18, 

1.14, 

1.05, 

1 

.02, 

1.11, 

1.23, 

0C1 

256 

5 

1 

.41, 

1.75, 

1.83, 

1.99, 

2.05, 

3.03, 

2.00, 

1 

.96, 

1.90, 

1.86/ 

0C1 

260 

DATA 

Cl  91/ 

DCt 

265 

1 

1 

.91, 

2.08, 

2.24, 

2,41, 

2.63, 

2.68, 

2.67, 

2 

.73, 

2.79, 

2.81, 

DC1 

279 

2 

2. 

.91, 

2.93. 

3.02, 

3.16, 

3.23, 

3.30. 

3.34, 

3 

.43, 

3.57, 

3.59, 

DCt 

275 

3 

3 

.59, 

3.58, 

3.57, 

3.61, 

3.71, 

3.71, 

3.69, 

3 

.84, 

3.60, 

3.66, 

OCt 

280 

4 

3. 

.80, 

3.95, 

4.05, 

4,05. 

4.02, 

3.99, 

3.96, 

4 

.0.1, 

4.13, 

4.22, 

0C1 

285 

5 

4, 

.35, 

4.49, 

4.58, 

4.62, 

4.63, 

4.61 , 

4.57, 

4 

.58, 

4.50, 

4.53, 

OCt 

290 

4, 

.49, 

4.46, 

4.40, 

4.28, 

4.14, 

3.92. 

3.63, 

3 

.38, 

3.16, 

3.10, 

0C1 

298 

3, 

.24, 

3.47, 

3.66, 

3.80, 

3.93, 

4.00, 

4.04, 

4 

,15. 

4.23, 

4.31, 

0C1 

300 

e 

4, 

,35. 

4.31 , 

4.23, 

4.20, 

4.24, 

4.28, 

4.35, 

4 

,42, 

4.42, 

4.44, 

OCt 

305 

4. 

,48, 

4.40, 

4.30, 

4.22, 

4.13, 

4.07, 

4.12, 

4 

.19, 

4.22. 

4.23, 

DC1 

310 

4, 

.16. 

4.04, 

3.99, 

3.94, 

3.93, 

3.91, 

3.88, 

3 

,83. 

3.60, 

3.78, 

DC1 

315 

3, 

3,64, 

3.40, 

3,30, 

3.31, 

3.42, 

3.53, 

3 

,52, 

3.49, 

3.41, 

0C1 

320 

3, 

,21, 

3.14, 

3.10, 

3.08, 

3.11, 

a. 98, 

a.  68, 

2 

,78, 

3.74, 

2.75, 

0C1 

325 

3. 

,72. 

3.76, 

2.62. 

2.85, 

2.66, 

2.78, 

3.64, 

2 

.60, 

2.61, 

3.64, 

DC1 

330 

2. 

,58, 

3. 48, 

2.37, 

2.25, 

2.14, 

2.08. 

2.11, 

2 

,20, 

2.31, 

2.26, 

OCt 

339 

2. 

,15, 

2. OB, 

1.98, 

a. 03, 

2.05, 

1.96, 

184. 

1 

72, 

1.64, 

1.69, 

OCt 

340 

1. 

,57, 

1.57, 

1.60, 

1.63, 

1.51, 

1.36, 

1.07, 

81. 

.87, 

.92, 

0C1 

349 

1. 

,04. 

1.01, 

.92, 

.84, 

.92, 

.97, 

1.01, 

1 

06, 

1.10, 

1.06, 

OCt 

390 

1, 

01, 

.91, 

.79, 

.65, 

.47, 

.41, 

.39. 

36, 

.34, 

.33, 

DC1 

399 

39. 

.43, 

.48, 

.45, 

.38, 

.37, 

•21, 

22, 

.29, 

.37/ 

DCt 

300 

OATA  C3S1/ 

0C1 

365 

i 

38, 

.37, 

.29, 

.19, 

.13, 

.11, 

.03, 

- 

05, 

-.12. 

-.24, 

0C1 

370 

a 

31, 

-.39, 

-.43, 

-.50, 

-.59, 

-.68. 

-.73, 

- 

60, 

-.92.' 

-1.06, 

OCt 

379 

3- 

•1, 

14,-1.32, 

-1.27,- 

-1.88,- 

■1.33,' 

-1.33.-1.43, 

-1 

61,. 

-1.63,' 

-1.74. 

DS1 

360 

4-1, 

82, -1.08, 

-2.09,- 

-2.31,-2.31,-2.34,-2.37,' 

-2 

36,-3.51,' 

-2.85, 

DC1 

389 

9-3. 70. -2.63, -3.57, -8. 56, -3.59, -a. 97, -3.69, -2. 87, -2.68, -2. 82. 


OCt  360 


13d 


6 

-2 

.52 

-2.42, 

-2 

.29, 

-2 

.14, 

-2.00, 

-1.87, 

-1 

.71  , 

-1.51, 

-1 

.39, 

-1.27, 

DC1 

395 

7 

-1 

.12, 

-1 .01  , 

- 

.89, 

- 

.75, 

-.68, 

-.57, 

- 

.47, 

-.42, 

- 

.32, 

-.27, 

DC1 

400 

e 

- 

•  26 

"■19, 

- 

.13, 

- 

.11, 

-■01 , 

.05, 

•08. 

.17, 

•  25, 

•  31, 

DC1 

405 

9 

.41 , 

.43, 

.44, 

.43, 

.36, 

.35, 

.31, 

.25, 

.25, 

•  22. 

0C1 

410 

$ 

.21  , 

.33, 

.49, 

.65, 

.76, 

.71, 

.51, 

.30, 

.13, 

.10, 

DC) 

415 

$ 

.17, 

.24, 

.31, 

.38, 

.45, 

.51, 

•  56, 

.60, 

.63, 

.62, 

DC1 

420 

$ 

.63, 

.64, 

.66, 

.69, 

•  76, 

.75, 

■74, 

.70, 

.62, 

•53, 

0C1 

425 

s 

.46, 

.39, 

■  36, 

.37, 

.38, 

.42, 

•47, 

.50, 

.58, 

.69, 

DC! 

430 

$ 

.67, 

.62, 

.64, 

.68, 

.76, 

.90, 

1 

.11. 

1.13, 

1 

.10, 

.97, 

DC1 

435 

$ 

.98, 

1.17, 

1 

.38, 

1 

.52, 

1.70. 

1.76, 

1 

•  84, 

1.92, 

1 

.90, 

1  .87, 

DC1 

440 

$ 

1 

.91  , 

2.02, 

2 

.13, 

2 

.10, 

2.18, 

2.22, 

2 

•25, 

2.03, 

2 

.01, 

1.77, 

DC1 

445 

$ 

1 

.93, 

2.19, 

2 

.28, 

2 

.14, 

2.15, 

2.22, 

2 

.01, 

2.14, 

2 

.26, 

2.36, 

DC1 

450 

$ 

2 

.51, 

2.66, 

2 

.73, 

2 

.68, 

2.69, 

2.64, 

2 

.22, 

1.95, 

1 

.61  , 

1.11, 

DC1 

455 

s 

■  88, 

•  83, 

.89, 

1 

.20, 

1.62, 

1.82, 

1 

■99, 

2.01, 

2 

.14, 

2.16/ 

DC1 

460 

DATA 

C571/ 

DC1 

465 

1 

2 

.21, 

2.30, 

2 

.33, 

2 

.42, 

2.50, 

2.51, 

2 

.49, 

2.46, 

2 

.42, 

2.37, 

DC1 

470 

2 

2 

.37, 

2.33, 

2 

.31 , 

2 

.43. 

2.56, 

2.61 . 

2 

.63, 

2.60, 

2 

.50, 

2.38, 

DC1 

475 

3 

2 

•  41, 

2.34, 

2 

.31. 

2 

.32, 

2.40, 

2.27, 

2 

•32, 

2.22, 

2 

.09, 

2.00, 

DC1 

480 

4 

2 

•  '7, 

2.41  , 

2 

.77, 

2 

.68, 

2.49, 

2.29, 

2 

.23, 

2.42, 

2 

.61, 

2.58, 

DC1 

485 

5 

2 

.49, 

2.40, 

2 

.39, 

2 

.51, 

2.60, 

2.68, 

2 

.68, 

2.70, 

2 

.82, 

2.83, 

OC1 

490 

6 

2 

.82, 

2.81 , 

2 

.84, 

2 

.86, 

2.91  , 

2.96, 

3 

.03, 

3.08, 

3 

.21, 

3.30, 

DCl 

495 

7 

3 

.40, 

3.52, 

3 

.49, 

3 

.46, 

3.51, 

3.54, 

3 

.56, 

3.55, 

3 

.57, 

3.61 , 

DC1 

507 

8 

3 

.71, 

3.80, 

3 

.92, 

3 

.99, 

4.06, 

4.02, 

4 

.06, 

4.12, 

4 

.28, 

4.30, 

DCl 

505 

9 

4 

.22, 

4.32, 

4 

.42, 

4 

.53, 

4.64, 

4.55, 

4 

.40, 

4.28, 

4 

.32, 

4.38, 

DCl 

510 

$ 

4 

.37, 

4.24, 

4 

.13, 

4 

.14, 

4.20, 

4.25, 

4 

.32, 

4.35, 

4 

.31, 

4-27, 

DCl 

515 

* 

4 

.25, 

4.27, 

4 

.31, 

4 

.36, 

4.41 , 

4.52, 

4 

.59, 

4.71, 

4 

.79, 

4.81, 

DCl 

520 

$ 

4. 

.73, 

4.61 , 

4 

.42, 

4 

.  28 , 

4.08, 

4.00, 

3 

.88, 

3.88, 

3 

.92, 

3.98, 

DCl 

525 

$ 

4. 

.12, 

4,18, 

4 

.31 , 

4 

.37, 

4.42, 

4.50, 

4 

.53, 

4.58, 

4. 

.69, 

4.61, 

DCl 

530 

$ 

4, 

.61, 

4.59, 

4 

.53, 

4 

.49, 

4.44, 

4.41 , 

4 

.40, 

4.34, 

4 

.30, 

4.26, 

DCl 

535 

$ 

4 

.09, 

3.98, 

3 

.87, 

3 

.78, 

3.77, 

3.79, 

3 

.75. 

3.72, 

3 

.62, 

3.56, 

DCl 

540 

S 

3, 

.51, 

3.48, 

3 

.32, 

3 

.18, 

3.07, 

2.96, 

2 

,87, 

2.80, 

2 

.88, 

2.58, 

DCl 

545 

* 

2. 

.59, 

2. SI  , 

2 

,59, 

2 

.57, 

2.50, 

2.42, 

2 

.32, 

2.20, 

2 

.12, 

2.00. 

OC1 

550 

s 

1  , 

,92, 

1.79, 

1 

,63, 

1 

.60, 

1.69, 

1.78, 

2 

.04, 

2.00, 

1 

,81, 

1.70, 

DCl 

555 

s 

1, 

.63, 

1.61, 

1 

,60, 

1 

.49, 

1.14, 

1.35, 

1 

.64, 

1.69. 

1 

.70, 

1.69/ 

DCl 

560 

DATA 

C761/ 

1.64, 

DCt 

665 

1 

1 

.45, 

1.29, 

1 

,19, 

1 

,08, 

1.02, 

1 

.10. 

1.18, 

1 

.20, 

1.23, 

OC1 

570 

2 

1 

.22, 

1.08, 

1 

,08, 

1 

,06, 

.89, 

.93, 

,73, 

.56, 

,54, 

.77, 

DCl 

57? 

3 

.81 , 

•  74, 

,71, 

,57, 

.49. 

.43, 

38, 

.12, 

,10, 

.20, 

DCl 

sap 

4 

41  , 

.37, 

,31, 

,11. 

-.13, 

-.21 , 

- 

32, 

-.36, 

- 

39, 

-.33, 

Dfcl 

585 

S 

• 

,39, 

-.45, 

- 

,50, 

- 

,56, 

-.62, 

-.68, 

- 

77. 

-.84, 

- 

,91. 

-1.00, 

DCl 

590 

6-1. 

,11, 

-1 .19.' 

-1 

28, 

-1 

,31.-1.39,-1.43, 

-1 

,48. 

-1.52, 

-1 

,57. 

-1.60, 

DCl 

595 

7- 

■1 

61, 

-1. 60,-1. 

68, 

-1 

,51,-1.42,-1.32. 

-1 

28,' 

-t.16, 

-1 

00, 

-.83, 

OC1 

600 

8 

,71, 

-.61, 

52, 

- 

,43, 

-.33, 

-.30, 

- 

21, 

-.19, 

- 

17, 

-.15, 

OC1 

60S 

9 

13. 

-.17. 

19, 

- 

,12, 

-.06. 

-.01. 

0 

00. 

-.11. 

- 

23. 

-.32, 

DCl 

610 

$ 

44, 

-.51. 

48, 

- 

47, 

-.42, 

-.40. 

- 

40, 

-.39. 

- 

37, 

-.35, 

OC1 

615 

* 

48, 

-.75,-1. 

13, 

-1 

68,-1.80,-1.68, 

-1 

52.' 

-1.35,' 

-1 

19.' 

-1.02. 

DCl 

620 

S 

88, 

-.66, 

6S. 

- 

63, 

-.62, 

-.66, 

- 

73, 

-.79, 

- 

88, 

-.84, 

DCl 

625 

1 

70, 

-.59, 

m 

43, 

- 

39, 

-.50, 

-.81. 

- 

74, 

-.79, 

- 

78, 

-.89. 

OC1 

630 

$ 

83. 

-.59, 

m 

62, 

- 

48, 

-.48, 

-.42. 

— 

39, 

-.38, 

- 

33, 

-.29. 

OC1 

635 

« 

26, 

-.23, 

m 

22. 

- 

29, 

-.37, 

-.60, 

- 

60, 

-.60, 

- 

51, 

-.46. 

DCl 

640 

« 

42, 

-.43. 

m 

45, 

- 

35, 

-.24, 

-.14, 

- 

08, 

-.08, 

0 

00, 

.11, 

DCl 

645 

* 

32, 

,43, 

42, 

32, 

.23, 

.22. 

28, 

.46, 

55, 

.62, 

DCl 

550 

$ 

65, 

•  71, 

75, 

80, 

.63, 

.83, 

87, 

.90, 

93, 

1.00, 

DCl 

655 

( 

1 

04, 

1.15, 

1 

22, 

1 

32, 

1.31, 

1.32, 

1 

33, 

1.48, 

1 

78, 

1.87/ 

DCl 

550 

DATA 

C9S1/ 

0C1 

685 

1 

2. 

01. 

1,92, 

1 

86, 

1 

89, 

1,92, 

1.98, 

2 

03, 

2.39, 

2 

31. 

2.48, 

DCl 

570 

a 

2. 

70, 

2.71, 

a 

78, 

2 

7B, 

2.70, 

2,77, 

3 

08, 

2.94, 

3 

05, 

2.94, 

DCl 

875 

3 

3. 

23, 

3.20, 

3 

19, 

3 

32, 

3.11 , 

3.41, 

3 

31. 

3.36, 

3 

48, 

3.38, 

DCl 

980 

4 

3. 

39, 

3.50, 

3 

41, 

3 

22, 

3.19, 

2.99, 

2 

79, 

2.99, 

3 

02, 

2.92, 

0C1 

988 

140 


m 


i 


s 

2.98, 

2.86, 

2.92, 

2.92, 

3.05, 

3.22, 

3.60, 

3.78, 

3.81 

.  3.96, 

0C1 

690 

a 

3.76, 

3.62, 

3.34, 

3.06, 

3.31 , 

3.15, 

3.37, 

3.41, 

3.30 

,  3.33, 

DCt 

695 

3.33, 

3.51, 

3.48, 

3.43, 

3.52, 

3.31, 

3.40, 

3.58, 

3.61 

,  3.49, 

oct 

700 

3.46, 

3.42, 

3.19, 

3.18, 

3.30, 

3.00, 

2.99, 

3.21, 

3.11 

t  3.14, 

DCt 

705 

9 

3.10, 

2.72, 

2.81, 

2.95, 

2.69, 

2.73, 

2.72, 

2147, 

2.51 

,  2.60, 

0C4 

710 

2.42, 

2.37, 

2.73, 

1.91, 

1.87, 

1.81, 

1.78, 

1.63, 

1.51 

,  1.62, 

DC1 

715 

1.59, 

1.60, 

1 .42 , 

1.32, 

1.22, 

'1.12, 

1.08, 

1.02, 

.97 

,  *92, 

0C1 

720 

.90, 

.87, 

.84, 

.82, 

.79. 

.78, 

.76, 

.75, 

.72 

.  .71, 

0C1 

725 

.71, 

.70, 

.89, 

.67, 

.61, 

.59, 

.52, 

.48, 

.41 

,  .39, 

DC! 

730 

.38, 

.33, 

.32, 

.30, 

•  30, 

.30, 

.29, 

.28, 

.27 

,  .26, 

DC1 

735 

.25, 

•23, 

.22, 

.21, 

.20, 

.18, 

•  14, 

.13, 

.06 

,  .01, 

DC1 

740 

-.03, 

-.07, 

-.11, 

-.16. 

-.21, 

-.24, 

-.29, 

-.32, 

-.38 

.  -.41, 

DC1 

746 

-.45, 

-.50, 

-.54, 

-.61. 

-.69, 

-.76, 

-.84, 

-.90, 

-.97 

,-1.01, 

0C1 

760 

*-1.10, 

-1.13, 

-1.19, 

-1.22, 

-1.28, 

-1.30, 

-1.33, 

-1.36, 

-1.39 

,-1.43, 

DCt 

755 

*-1.48, 

-1.50, 

-1.52, 

-1.57, 

-1.61, 

-1.86, 

-1.70, 

-1.72, 

-1.78 

,-1.81/ 

0C1 

760 

DATA 

Cl  141/ 

DC1 

765 

1-1.89, 

-1.92, 

-2.00, 

-2.08, 

-2.16, 

-2.24, 

“2.31, 

-2.40, 

-2.48 

.-a. 54, 

DCt 

770 

2-8.61 , 

-2.71, 

-2.83, 

-2.96, 

-3.10, 

-5.00, 

-5. CO, 

-5.00, 

-5.00 

,-5.00, 

DC1 

775 

3- 

-5.00, 

-5.00, 

-5.i0. 

-5.00. 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00 

.-5.00, 

oa 

780 

4-8.00, 

-5.00, 

-5.10, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00 

,-5.00, 

DCI 

785 

5-8.00, 

-5,00, 

-5. *0. 

-6.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

,-5.00, 

DC1 

790 

6- 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

i  —5,00 , 

DC1 

795 

7-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-6.00, 

,-5.00, 

DCt 

800 

8-5.00, 

-5.00, 

-5.00,-5.00, 

-5.00. 

-5.00, 

-5.00, 

-5.00. 

-5.00, 

,-5.00, 

DC1 

805 

9-5.00, 

-5.00, 

-5.00,-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00,-5.00, 

,-5.00, 

0C1 

810 

*- 

-3.78, 

-3.33, 

-3.01,' 

-2.82, 

-2.68,-2.49, 

-2.3Q, 

-2.13,-2.00, 

,—1.81 , 

0C1 

B15 

*-1.60, 

-1.41, 

-1.13, 

-.90, 

-.79. 

-.63, 

-.48, 

-.36, 

-.28, 

,  -.16. 

DC1 

a?  s 

S 

-.06, 

.08, 

.20, 

.28, 

.41, 

,54, 

.69, 

.80, 

.92, 

,  1.04, 

DCt 

825 

* 

1.19, 

1.19, 

1.01 , 

.98, 

1.02, 

1.19, 

1.29, 

1.30, 

1.29, 

,  1.38, 

DC1 

830 

* 

1.19, 

1.39, 

1 .42, 

1.43, 

1.70, 

t  .62 , 

1.54, 

1.41, 

1.53, 

,  1.86, 

DC1 

835 

$ 

1.96. 

1.97, 

2.02, 

2.01 , 

1.94, 

1 .94, 

1 .83, 

2.03, 

2.21, 

,  a. 42, 

0C1 

;'40 

* 

2.30, 

2.16, 

2.02, 

2.02, 

2.02, 

2.13, 

1.90, 

1.71, 

2.01, 

,  1.58, 

DCt 

045 

s 

1.66, 

1.61, 

1 .30, 

1.63, 

1.64, 

1.67, 

1.70, 

2.22, 

2.39, 

,  a. 38, 

DC1 

850 

* 

2.30, 

1.93, 

2.39. 

2.49, 

2.62, 

2.57, 

2.21, 

2.18, 

2.40, 

,  a. 41. 

DC1 

855 

s 

2.45. 

2.51, 

2.23, 

2.49, 

2.30, 

2.61, 

2.72, 

2.52, 

2.63, 

,  a. 56/ 

dci 

860 

OATA 

C1331/ 

DCt 

865 

1 

2.51, 

2.70, 

2.62, 

2.62, 

2.80, 

2.74, 

2.79, 

2.74, 

2.70, 

,  a. as, 

DCI 

870 

2 

2.81 , 

2.72, 

2.76, 

2.84, 

2.92, 

2.98, 

2.88. 

2.88, 

3.02, 

,  3.08, 

oci 

375 

3 

3.26, 

3.03, 

3.14, 

3'.  28, 

3.03, 

3.11, 

3-15, 

3.30, 

3.31, 

>  3.32, 

DCI 

880 

4 

3.00. 

3.06, 

3.34, 

3.40, 

3.37, 

3.32, 

3.08, 

3.09, 

3.09, 

,  3.01, 

DCI 

885 

5 

3.07, 

3.07, 

3.31, 

3.21 , 

3.31, 

3.67, 

3.58, 

3.79, 

3.70, 

3.49, 

DCI 

890 

6 

3.39. 

3.11, 

3.13, 

3.01 , 

3.10, 

3.01, 

3.18, 

3.32, 

3.43, 

3.35, 

.  DCI 

885 

3.40, 

3.39, 

3.39, 

3.51  , 

3.54, 

3.42, 

3.50, 

3.67, 

3.59, 

3.63, 

DCI 

900 

3.66, 

3.48, 

3.39. 

3.29, 

3.31, 

3.41, 

3.23, 

3.32, 

3.12, 

2.91, 

0C1 

905 

2.91  , 

2.75, 

2.78. 

2.72. 

2.62, 

2. 58, 

2.32, 

2.22, 

2.00, 

1.97, 

DCI 

910 

1.68, 

1.62, 

1.64, 

1.53. 

1.56, 

1.51, 

1.52, 

1 .48, 

1 .42, 

1.42, 

DCI 

915 

1.40, 

1.41, 

1.43, 

1.56. 

1.52, 

1.51, 

1.52, 

1.39, 

1.39, 

1.30, 

DCI 

920 

1.09, 

1.16, 

1.21, 

1.20. 

1-22, 

1.20, 

1.18, 

1.20, 

1.19, 

1.17, 

0C1 

925 

1.10, 

1.10, 

1.09, 

1.10. 

1.11, 

1.04, 

.98, 

.90, 

.CO, 

.00, 

DC' 

930 

.90, 

.90, 

.86, 

.71  , 

.78, 

.70, 

•  71, 

.67, 

.62, 

.?J, 

DCI 

935 

.42, 

.31, 

.20, 

.01, 

-.08, 

-.17, 

-.20, 

-.35. 

-.44, 

-,5j- 

DCI 

940 

-.83, 

-.73, 

-.83. 

-.93, 

-1.04,- 

*1,14;' 

-1.24, 

-1.34,- 

•1.44, 

-1.54, 

DCI 

945 

*-1.64. 

-1.74,-1.84,-1.94, 

-2.04,. 

•2.14.' 

-2.24,' 

-2.34,- 

•2.44, 

-2.54, 

DCI 

950 

»- 

■2.84.' 

-2,74,-3.84,-2.94, 

-3,04,- 

■3.14,' 

-3.24,' 

-3.34,- 

■3.44, 

-3.64, 

DCI 

955 

*- 

3.64, 

-3,74,-3,84,-3.94, 

-4.04,-5.00,' 

-5.00,' 

-5,00," 

•5.00, 

-9.00/ 

'JC1 

980 

OATA  1 

C1821/ 

DCI 

865 

1- 

■5.00,' 

-5.00,-5.00,-5,00,-5.00,-5.00,' 

■5.00,' 

-5.00,- 

■5.00, 

-6.00, 

oct 

870 

2- 

•5.00,' 

-5.00,- 

■5.00,- 

■5.00,' 

-5.00,-5.00,' 

-5.00,' 

-5.00,-3.00. 

-5,00, 

’  DCI 

975 

3-6.00,-5.00,-5.00,-5.00 ,' 

-5.00,-8.00,' 

-5.00.' 

*5.00, -».0C 

-5.00, 

DCI 

NO 
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4-S.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5 

.00, 

-5.00, 

-5.00, 

8-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5 

.00, 

-5.00, 

-5.00, 

6-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5,00. 

-5.00, 

-5.00, 

7-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5,00, 

-5.00, 

-5 

.00, 

-5.00, 

-s.oo, 

8-4.15, 

-4.08, 

-3.97, 

-3.88, 

-3.79, 

-3.70, 

-3.61, 

-3 

.52, 

-3.43, 

-3.34, 

0-3.25, 

-3.16, 

-3.07, 

-2.98, 

-2.89, 

-2.80, 

-2.7t, 

-2,52, 

-2.53, 

-2.44, 

$-2.35, 

-2.26, 

-2.18, 

-2.09, 

-2.00, 

-1.91, 

-1.82, 

-1 

.73, 

-1.64, 

-1.55, 

5-1.46, 

-1.37, 

-1.28, 

-1.19,<-1.10, 

-1.01, 

-.92, 

- 

.83, 

-.74, 

-.85, 

$  -.56, 

-.47, 

-.38, 

-  29, 

-.20, 

-.14, 

-.09, 

- 

.02, 

.03, 

.10, 

$  .17, 

.22, 

.30, 

.35, 

•  41, 

.45, 

•  42  * 

.40, 

.43, 

.46, 

5  .60, 

.59, 

•  71, 

.84, 

,93, 

1.01, 

1-06, 

1 

.07, 

1.02, 

1.01, 

$  1.12, 

1.23, 

1.24, 

1.28, 

1.34, 

1.43, 

1.52, 

1 

.56, 

1.59, 

1.56, 

5  1.51  , 

.1.61 , 

1.50, 

1.70, 

1.82, 

1 .92, 

1.94, 

1 

.89, 

1.81, 

1 .45, 

5  1.30, 

1.28, 

1.43, 

t.50, 

1.49, 

1.55, 

1.48, 

1 

.32, 

1.39, 

1.53, 

$  1.82, 

2.23, 

2.61, 

2.51 , 

2.20, 

1.86, 

1.61, 

1 

.19, 

1.32, 

1.52, 

6  1.70, 

1 .90, 

2.01, 

1.92, 

1.91, 

2.12, 

2.10, 

2 

.01, 

2.18, 

1.99/ 

DATA 

C171 1/ 

1  2.11, 

2.28, 

2.21 , 

2.13, 

2.00, 

1 .91 , 

1.92, 

1 

.97, 

1.88, 

1.91, 

2  1.91 , 

1.92, 

1.93, 

1.74, 

1 .61  , 

1.58, 

1.27, 

1 

.20. 

1.18, 

1.11, 

3  .99, 

.86, 

.71, 

.60, 

.44, 

.31, 

.19, 

.03, 

-.07, 

-.21, 

4  -.35, 

-.49, 

-.84, 

-.79, 

-.94, 

-1.11, 

-1.24, 

-1 

.41 , 

-1.67, 

-1.73, 

8-1.91, 

-2.09, 

-2.27, 

-2.45, 

-2.63, 

-2.81, 

-2.99, 

-3 

.18, 

-3.37, 

-3.56, 

6-3.75, 

-3.94, 

-4.13, 

-4.31 , 

-4.49, 

-4.66, 

-4.83, 

-4 

.99, 

-5.14, 

-5.28, 

7-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5,00, 

-5.00, 

-5.00, 

-5 

.00, 

-4.68, 

-4.26, 

8-3.89, 

-3.57, 

-3-32, 

-3.11, 

-2.91 , 

-2.89, 

-2.79, 

-2 

.74, 

-2.63, 

-a. 47, 

9-2.29, 

-2.20, 

-2.17, 

-2,23,-2.27, 

-2.32, 

-2.12, 

-2 

.08, 

-2.07, 

-a. 07, 

*“2.07, 

-1.98, 

-1.77, 

-1.70,-1.63, 

-1.60, 

-1 .59, 

-1 

.43, 

-1.21, 

-1.15, 

5-1.09, 

-1.13, 

-1.29, 

-1.19, 

-.98, 

-.93, 

•*.87, 

• 

.91, 

-.88, 

-.71, 

*  -.62, 

-.59, 

-.58, 

-.63, 

-.58, 

-.39, 

-.22, 

- 

14, 

-.06, 

-.01, 

*  -.01  , 

-.08, 

-.20, 

-.16, 

-.02, 

.18, 

•  32, 

42, 

.37, 

.23, 

*  .12, 

.15, 

.28, 

.43, 

.59, 

.58, 

.53, 

44, 

.39, 

.38, 

*  .35, 

.23, 

.26, 

.19, 

.08, 

.10, 

.18, 

27, 

.38, 

.43, 

*  .32, 

.37, 

.58, 

.64, 

,87, 

.98, 

1.00, 

1 

02, 

1.13, 

1.08, 

5  1.08, 

1.16, 

1,16, 

1  .30, 

1.41, 

1.40, 

1.32, 

1 

.32, 

1.37, 

1.42, 

5  1.50, 

1.42, 

1.38, 

1.36, 

1.38, 

1.49, 

1.63, 

1 

62, 

1.62, 

1.70, 

5  1.68, 

1.60, 

1.56, 

1.58, 

1.63, 

1.64, 

1.56. 

1 

49, 

1.49, 

1.52/ 

DATA 

Cl 90  / 

1  1.58, 

1.62, 

1.62, 

t  .61 , 

1.61 , 

1.62, 

1.63, 

1 

71, 

1.72, 

1.70, 

2  1.70, 

1.67, 

1.62. 

1.66, 

1.70, 

1.67, 

1.66, 

1 

49, 

1.42, 

1.38, 

3  1.2S, 

1.20, 

1.13, 

1.14, 

1.19, 

1.29, 

1.50. 

1 

72, 

1 .86, 

1.78, 

4  1.82, 

1.88, 

1.82, 

1.89, 

1.99, 

2.00, 

2.14, 

2 

04, 

2.02, 

3. 02, 

3  1.98, 

1.90, 

1.83, 

1.81. 

1.72, 

1.89, 

1.59, 

1 

SO, 

1.36, 

1.20, 

6  .98. 

.63, 

.43, 

.29, 

.16, 

.05, 

.02, 

03, 

.03, 

.01, 

7  -.08, 

-.18. 

-.20. 

-.11. 

-.06. 

-.03, 

-.14, 

«■ 

21, 

-.06, 

-.06, 

8  .10, 

.18, 

.11, 

.32. 

.42, 

.44, 

.38, 

28, 

.42, 

.43, 

9  .41 , 

.33, 

.32, 

.41, 

.50, 

.46, 

•  31 1 

18, 

.00, 

.20, 

*  .21, 

.34, 

.36, 

.28. 

.35, 

.39, 

■  42, 

38, 

.32, 

.30, 

8  .16. 

-.01, 

-.23, 

-.41. 

-.52, 

-.48, 

-.88, 

- 

61. 

-.48, 

-.23, 

5  -.03, 

.21, 

.36, 

.39, 

.47, 

,44, 

.40, 

51  , 

.59, 

.63, 

5  .69, 

.67, 

.48, 

.52, 

.62, 

.59, 

.55. 

50. 

,32, 

.26, 

*  .11, 

-.08, 

-.10, 

-.',6. 

-.43, 

-.82. 

-.88,-1 

09, 

-1.16, 

-1.31, 

5-1.45. 

-1 .49,-1 .78,-1 .91 .-3.0t.-1 .87, 

-1. 97,-1 

97, 

-1 .97, 

-2.26, 

5-2.20,-2.01,-1.99,-3.00,-2.04,-2.37, 

-2.49.-2 

44, 

“2.36, 

-a. 3a, 

5-2.19, 

-2.10,-2.28,-2.18,-2.36,-3.44, 

-a. 40, -2 

«9., 

-2.48, 

-3.43, 

5-3.40,-2.36,-2.40,-2.49,-2.59,-2.68. 

-2. 89, -3 

28. 

-3.61, 

-3.74, 

8-3. 97, -4. 20, -4. 43, -4. 66, -4, 89, -5. 00, 

-5. 00. -5 

00. 

-5.00, 

“8.00/ 

DAT*  C3081/ 

1-5. 00, -5. 00, -5. 00,-5.00, -5. 00, -5. 00, -5. 00, -5. 00, -5. 00, -5. 00, 
3-9.00,-9.00,-9.00,-8.00,-9.00,-5.00,-6.00,-5.00,-8.00,-9.00. 


DC1 

985 

OC1 

990 

OC1 

995 

DC1 

1000 

DC1 

1005 

DCt 

1010 

OC1 

1015 

OC1 

1020 

0C1 

1025 

DC1 

1030 

OC 1 

1035 

oct 

1040 

0C1 

1045 

OC1 

1050 

DC1 

1055 

DC1 

1060 

DC1 

1055 

DCt 

1070 

DC1 

1075 

DC1 

1080 

0C1 

1085 

DC1 

1090 

PCI 

1095 

0C1 

1100 

DC1 

1105 

DC1 

1110 

0C1 

1115 

0C1 

nao 

DC1 

1135 

DC1 

1130 

CC1 

1135 

DC1 

1140 

DC1 

1145 

DC1 

1150 

DC1 

1155 

DC1 

1160 

0C1 

1165 

0C1 

1170 

0C1 

1175 

DC1 

1180 

DC1 

1185 

0C1 

1190 

DC1 

1195 

DC1 

1200 

0C1 

1205 

0C1 

1310 

DC1 

121  B 

0C1 

1220 

DC1 

taas 

0C1 

1230 

DCt 

1235 

DC1 

1240 

0C1 

1245 

DC1 

1250 

DC1 

1255 

0C1 

1260 

0C1 

1265 

oct 

1270 

0C1 

1375 
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3-5 

.00 

-5.00, 

>5.00, 

-5.00, 

-5.00, 

-5,00, 

-5.00, 

-5 

.00, 

-5 

.00, 

-5 

.00, 

4-5 

.00 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-9 

.00, 

-5 

.00, 

-5 

.00, 

S-S 

.00 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5 

.00, 

-5 

.00, 

-5 

.00, 

5-5 

.00 

-5.00, 

-5.00, 

-5.00, 

-5.00. 

-3.71, 

-3. 56, 

-3 

.40, 

-3 

•  21, 

-3 

.06, 

7-2 

.90 

-2.74, 

-2.60, 

-2.46, 

-2.32, 

-2.17. 

-2.03, 

-1 

.87, 

-1 

.79, 

-1 

.74, 

8-1 

.83 

-1.82, 

-1.71  , 

-1.5S, 

-1.49, 

-1.46, 

-1.46, 

-1 

.49, 

-1 

.49, 

-1 

.25, 

9-1 

.24: 

-1.08, 

-.90, 

-1.06, 

-.91, 

-.91, 

“1.01 , 

- 

.99, 

- 

.87, 

- 

•92, 

.79, 

-.42, 

-.54, 

-.38, 

-•42, 

-.48, 

-.34, 

- 

.27, 

- 

.17, 

- 

.28, 

$  - 

.  3B 

-.23, 

-.30, 

-.08, 

-.01, 

-.20. 

.06, 

.10, 

.08, 

.14, 

.12 

-.02, 

-.02, 

-.13, 

-.11. 

-.10. 

-.06, 

- 

.05, 

- 

.04, 

- 

.10, 

$  - 

.04 

-.06, 

-.21, 

,  -.38, 

-.81, 

-.40, 

“•31, 

- 

■  42, 

- 

.58, 

- 

•  57, 

.54, 

-.24, 

.11. 

.51 , 

.81, 

.79, 

.62, 

.26, 

- 

.31, 

- 

.67, 

$  - 

.80 

-.88. 

-.50, 

-.39, 

-.10, 

.09, 

.06, 

.08, 

.16, 

.21, 

$ 

.13 

.32, 

.35, 

.51, 

.60, 

.51, 

•51 , 

.40, 

.40, 

.43, 

9 

.42, 

.33, 

.43, 

.34, 

•  22, 

.13, 

".1 1 , 

- 

.31, 

- 

.31, 

- 

.41 , 

$  - 

.41 , 

-.39, 

-.53, 

-.69. 

-.84, 

-.88, 

-1.01 , 

.10, 

-1 

.19, 

-1 

.29, 

9-1 

.45 

-1.49, 

-1.67, 

-1.67, 

-1.51, 

-1.66, 

-1.60, 

.69, 

-1 

.83, 

-1 

.51/ 

DATA 

C2201 / 

1-1 

.42, 

-1.40, 

-1.24, 

-1.38, 

-1.31, 

-1.30, 

-1.30, 

-t 

.28, 

-1 

.39, 

-1 

.33, 

2-1 

.40, 

-1.35, 

-1.37, 

•1.39, 

-1.41, 

-1.49, 

-1.48, 

-1 

.56, 

-1 

.47, 

-1 

.46, 

3-1 

.41, 

-1.42, 

-1.48, 

-1.41, 

-1.31, 

-1.15, 

-1.13, 

-1 

.20, 

-1 

.41, 

-1 

.86, 

4-2 

.08, 

-2.08, 

-2.22, 

-2.35, 

-2.35, 

-1.98, 

“1.92, 

-1 

.78, 

-1 

.57, 

-1 

.69, 

5-1 

.70, 

-1.70, 

-1.66. 

-1.84, 

-1.60, 

-1.56, 

“1.42, 

.29, 

-1 

.38, 

-1 

.26, 

6-1 

.48, 

-1.58, 

-1.44, 

-1.53, 

-1.48, 

-1.48, 

“1.58, 

-1 

.68, 

-1 

.69, 

-1 

.79, 

7-2 

.00, 

-2.18, 

-1.99, 

-2.23, 

-2.04, 

-2.04, 

“2.39, 

-2 

.74, 

-3 

.09, 

-3 

.44, 

8-3 

.79, 

-4.14, 

-4,49, 

-4.84, 

-5.19, 

-2.46, 

-2.26, 

.99, 

•2 

.01, 

-2 

.14, 

9-2 

.31, 

-2.15, 

-2.01, 

-1,99. 

-2.14, 

-2.41, 

“2.12, 

-1 

.99, 

-1 

.84, 

-1 

.79, 

9-1 

.71, 

-1.78, 

-1.72, 

-1.68, 

-1.78, 

-1.52, 

“1.38, 

-1 

.29, 

-1 

■  22, 

- 

.91, 

S  - 

.90, 

-1.01, 

-.76. 

-.90, 

-.90, 

-.90, 

-1.19, 

-1 

.00, 

- 

.79, 

- 

,68, 

9  - 

.68, 

-.73, 

-.85, 

-.85, 

-.81, 

-.61, 

-.48, 

- 

.51, 

- 

.92, 

- 

.63, 

9  - 

.61, 

-.41, 

-.29, 

-.29, 

-.81, 

-.74. 

-.19, 

- 

.18, 

0 

.00, 

.19. 

9  - 

.10, 

.20, 

.20, 

.02, 

.20, 

-.01, 

.18, 

.23, 

.11, 

0 

.00, 

9  - 

.37, 

-.10, 

.02, 

.16, 

.20, 

0.00, 

.09, 

.09, 

.09, 

.07, 

.22, 

•  11, 

.11  , 

.21 , 

.09, 

.21, 

.20, 

.37. 

.28, 

.07, 

.09, 

-.29, 

-.69, 

-.69, 

-.74, 

-.88. 

-1.01  , 

- 

.86, 

- 

.54, 

- 

.19, 

.19, 

.23, 

.21, 

.29, 

.28, 

.29, 

.52, 

.54, 

.51, 

.60, 

.40, 

.49, 

.48, 

.48, 

.49, 

.27, 

.06, 

• 

.33, 

— 

.81, 

-1 

.17/ 

DATA 

C2471/ 

• 

1-1, 

.11, 

-1.37, 

-1.52, 

-1.54, 

-1.94, 

-2.06, 

-2.06. 

-2 

.14, 

-1 

.96. 

-2 

,00. 

2-2, 

.00, 

-2.08, 

-2.23. 

-2.31, 

-2.31, 

-2.53, 

■2.31 , 

•2 

.31, 

-2 

.31, 

-2 

,28, 

3-2, 

.34, 

-2.34, 

-i  .01 . 

-1.82, 

-1.69, 

-1.56, 

-1.84. 

.91, 

.75, 

-1 

,63, 

4-1, 

,76, 

-1.54, 

-1.98. 

-1.60, 

-1.68, 

-1.89, 

-1.56, 

-t 

.60, 

■  i 

•  71, 

-1 

36. 

5-1, 

.36, 

-1.44, 

-1.48, 

-1.40, 

-1.48, 

-1.35, 

-1.45, 

.49, 

.85, 

-1 

,39, 

8-1, 

.33, 

-1.18, 

-1.18, 

-1.34, 

-1.38, 

-1.23, 

-1.23. 

,37. 

-1 

.30, 

-1 

,40. 

7-1, 

,28, 

-1.27, 

-1.37, 

-1.32, 

-1.32, 

-1.22, 

-1.28, 

-1 

.36, 

.69. 

-2 

07, 

8-2, 

,42, 

-2.58, 

-3.58, 

-2.80, 

-2.58, 

-2.43, 

-1.88, 

,60, 

-t 

.26, 

-1 

,16, 

9-1, 

,23, 

-1.10, 

-1.23, 

-1.10, 

-.83, 

-.80, 

-.80, 

- 

,  BO, 

- 

.98, 

m 

97, 

9  -, 

,97, 

-.91, 

-.92, 

-1.13, 

-1.24, 

-1.50, 

-1.89, 

-a 

,18. 

-2 

.32, 

-a 

63, 

9-3, 

,91, 

-4.20, 

-4.49, 

-4,78. 

-5.07, 

-5.07, 

-5.07, 

-9 

07, 

-9 

.07. 

-5 

07/ 

(NO 


DC1  1280 
DC1  1285 
DC1  1280 
OC1  1295 
PCI  1300 
DC1  1305 
OC1  1310 
PCI  1315 
DC1  1320 
OC1  1325 
DC1  1330 
DC1  1335 
DC1  1340 
DC1  1345 
DC1  1350 
DC1  1355 
0C1  1360 
DC1  1365 
DC1  1370 
OC1  1375 
DC1  1380 
OC1  1385 
DC1  1390 
DC1  1395 
OC1  1400 
OC1  1405 
OC1  1410 
DC1  1415 
OC1  1420 
DC1  1425 
DCt  1430 
OC1  1435 
OC1  1440 
DC1  1445 
DC1  1450 
DC1  1455 
DC1  1480 
PCI  1465 
DC1  1470 
PCI  1475 
OC1  1480 
DC1  1485 
PCI  1490 
DC1  1495 
PCI  1500 
PCI  1505 
OC1  1510 
PCI  1515 
PCI  1530 
PCI  1535 
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c» 

c 

c 

c 

c 

c 

c 

c 


BLOCK  OATA  C2D  DC2  100 

BLOCK  OATA  DCS  10B 

uniformly  mixed  gases  band  model  ABSORPTION  COEFFICIENTS  OCR  110 

INCLUDING  C02,CO,N20,CH4  DC?.  IIS 

C2  LOCATION  1  V  «  500  CM-1  OC2  120 

C2  LOCATION  1515  V  .  8070  CM-1  DCS  125 

C2  LOCATION  1516  V  «  12950  CM-1  DC2  130 

C2  LOCATION  1575  V  «  13245  CM-1  DCS  135 

COMMON/C2/  C2(157S)  OC2  140 

COMMON  /C2/C001 (190),C191 ( 190) ,C381 (190) ,C571 (190) ,C761 ( 190) ,  DC2  145 

X  C951 ( 190) , Cl  141 ( 190} i Cl 331 ( 190) ,C1 521 (55)  DC 2  150 

OATA  C001  /  DCS  155 


1-4, 

.  2S, 

-3 

.70, 

-3. 

.20, 

-2 

.75, 

-1.90,' 

-1.73, 

-1 

•  51. 

-1.29, 

-1 

.11, 

.91, 

DCS 

160 

a 

-  , 

.71. 

- 

.51, 

- 

.30, 

- 

.06, 

.22, 

.49, 

.76, 

1.08, 

1 

.29, 

1 

.56, 

DCS 

168 

3 

1 . 

.76, 

1 

.91, 

2 

,08, 

2 

.93, 

2.36, 

2.51, 

2 

•  72, 

2.90, 

3, 

.12, 

3 

.37, 

DCS 

170 

4 

3. 

,56, 

3 

.69, 

3 

.79. 

3 

.66, 

3.88, 

3.86, 

3 

.73, 

3.68, 

3, 

.38, 

3 

.17, 

DCS 

178 

5 

2, 

.86, 

2 

.73, 

2 

,52, 

2 

,31, 

2.17, 

2.01, 

1 

.69, 

1.77, 

1, 

.63, 

1 

.47, 

DC  2 

180 

6 

1 , 

,21 , 

.92, 

.53, 

.23, 

-.17, 

-.53, 

- 

■74, 

-.81, 

,84, 

- 

.88, 

DCS 

185 

7-1  , 

.00, 

-1 

,18, 

-1 

.42, 

-1 

,61, 

-1.86,-2.10, 

-2 

•29, 

-2.51 ,-2, 

.72, 

-2 

.91, 

DCS 

190 

8-3, 

.14, 

-5 

.00, 

-5 

.00, 

-5 

.00, 

-5.00,-6.00, 

-5, 

.00, 

-5. 00, -5. 

,00, 

-5 

.00, 

DC  2 

195 

9-5.00,-2.68,-2.47,-2.19,-1.97,-1.71,-1.50,-1.32,-1.21 ,-1.13,  DCS  200 


-1 

.09, 

-1 

.01 , 

“1 

.01 , 

-1 

.ii, 

-1 

.33, 

-1 

.66. 

-a 

.13, 

0C2 

208 

-2 

.39, 

-2 

.09,' 

-1 

.78, 

-1 

.59. 

-1 

.33, 

-1 

.18, 

-1 

.01, 

DCS 

210 

- 

.87, 

- 

.BO, 

- 

.79, 

- 

.86, 

-1 

.07, 

-1 

,28, 

-1 

.69, 

DCS 

218 

-3 

.50, 

-3 

.03,' 

-2 

.58, 

-2 

.23, 

-1 

.69, 

-1 

.54, 

-1. 

.38, 

DCS 

220 

-1 

.20, 

-1 

.23,' 

-1 

.21 , 

-1 

.17, 

-1 

.12. 

-1 

.15, 

-1 

•  19, 

DCS 

225 

- 

.89, 

- 

.68, 

- 

.42, 

- 

•24, 

- 

.01, 

.18, 

.40, 

DCS 

230 

1 

.07, 

1 

.13, 

t 

.11, 

1 

.08, 

1 

.15, 

1 

.27, 

i! 

.33, 

DCS 

235 

.89, 

.63, 

.84, 

.65, 

.78, 

.81, 

.86, 

DC2 

240 

.  14, 

*• 

.12, 

- 

.48, 

— 

.92, 

-1 

.43, 

-1, 

,09, 

-a! 

.32, 

DC2 

245 

-5 

.00, 

-3 

.14,-2, 

.47, 

-2 

.00, 

-1 

.71, 

-1 

.59, 

-t, 

.61/ 

DCS 

250 

$-1.20,-1.17.-1.02, 

S  .57,  .77,  .96, 

S  1.44,  1.40,  1.13, 

$  .82,  .68,  .47, 

$-2.81 ,-5.00,-5.00, 

OATA  C191  /  0C2  255 

1- 1.69,-1.02,-1.67,-1.90,-1.94,-2.04,-2.10,-2.23,-2.32,-2.48,  DCS  200 

2- 2.71.-2.88,-3.09,-2.99,-2.43,-2.00,-1.89,-1.42,-1.38,-1.49,  DC2  265 

3- 1.70,-2.01 ,-2.41 ,-2,64,-2.63,-2.49,-2.38,-2.27,-2.16,-3.05,  DCS  370 

4- 1.94,-1.83,-1.76,-1.71.-1.70,-1.72,-1.81,-1.92,-2.03,-2.27,  DCS  275 

5- 2.61 ,-3.21  ,-4.01 ,-5.00,-5.00,-5.00,-1.00,-5.00,-5.00,-5.00,  DCS  280 

6- 5. 00, -5. 00, -5. 00, -5. 00, -5. 00, -5. 00, -5. 00. -5. 00, -B. 00, -5. 00,  0C2  285 

7- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  DC3  290 

8- 5.00.-5.00.-5.00,-5.00,-5.00,-5.00,-4.30,-3.42,-3.17,-2.98,  DC2  395 

9- !» .  83 , -3 .71, -3. 67,  -2.67 ,  -2.68,-2.58,-2.33,  -2,01  ,-1.64,-1.32,  DCS  300 

$  -.97,  -.78,  -.63,  -.59.  -.60,  -.83.  -.89,  -.87,-1.08,-1.28,  0C2  305 

$-1 .53,-1 .87,-1.91 .-1 ,93,-2.02,-2.21,-2.48,-2.80,-3.08,-3.11 ,  DCS  310 

»-3. 09, -2. 93,-3. 78. -2. 39, -2. 01 ,-1.69,-1.35,  -.99.  -.83,  -.28,  DCS  315 

*0.00,  .08,  .11,  .12,  .12,  .07,  .01,  -.08,  -.23,  -.40,  0C2  320 

$  -.81,  -.53,  -.57,  -.60,  -.61,  -.73,  -.31,  -.05,-1 .08.-1 .OS,  DCS  335 

$-.91,  -.68,  -.41,  -.09,  ,18,  .41,  .76.  1.00,  1.18,  1.39,  DCS  330 

$  1.51,  1.58.  1.88,  1.71,  1.80,  1.01,  2.03,  2. IB,  2.32,  3.80,  DCS  338 

S  3.61.  2.89.  2.81,  3.89,  3.98,  3.04,  3.14,  3.27,  3.41,  3.58,  DCS  340 

$  3. 72,  3.00,  4.03,  4,22,  4.42,  4,81.  4.71,  4.73,  4.85,  4.83,  0C2  348 

$  4.72,  4,78,  4.79,  4.50,  3.63,  3,38,  2.79,  2.30,  1.86,  1,38/  DCS  360 

OATA  C381  /  0C2  388 

1  .32,  -.24,-1.00,-2.18,-2.01,-1.78,-1.83,-1.32,-1.20,-1.18,  DCS  380 

3-1.12.-1.18,-1.35,-1.96,-1.20,-1,17,-1.20,-1.32,-1.84,-1.84,  DCS  385 

3-2.10.-2.30,-2.28.-2.01,-1.71,-1.36,-1.08,  -.81,  -.61,  -.49.  DCS  370 

4  -.48,  -.47,  -.49,  -.46,  -.37,  -.31.  -.34,  -.49,  -.75,-1.11,  DCS  375 

6- 1 .43,-2.01 ,-3.60,-3.89,-2.87,-2,74,-2.81 ,-3.42,-2.38,-3.39,  0C2  360 

8-3. 42,-3.48, -3. 48, -2*49, -3. 43, -2. 43, -2. 46, -3. 53, -3. 88. -3. 74,  0C2  388 

7- 3, #2. -2. 87. -2, 93, -2. 83, -2. 78, -2, 71, -2. 68,-2.49,-2.40, -2. 32.  0C2  380 
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II 


8-2 

.26, 

, -2 

.23, 

-2 

.20 

-2 

.09, 

,-2 

.02 

.-1 

.96 

-1.88, 

-1 

.84 

-1.86 

-1 

.86, 

DC2 

395 

9-1 

.87, 

,-1 

.83, 

-1 

.79 

-1 

.73, 

.-I 

.68 

,-1 

.64 

-1.69, 

-1 

.74 

-1 .79 

-1 

.87, 

0C2 

400 

S-1 

.78, 

.63, 

-1 

.50 

-1 

.37, 

,-1 

.21 

,-1 

.00 

-.83, 

- 

.69 

-.53 

- 

.41, 

DC2 

405 

&  - 

.30, 

,  “ 

19, 

- 

.09 

- 

.04, 

.02 

1 

.10 

.16, 

.18 

.23, 

.26, 

DC2 

410 

$ 

.27, 

.26, 

.24 

.22, 

.17 

f 

.12 

.07, 

- 

.01 

-.07 

- 

.09, 

DC2 

416 

$ 

.  3* , 

.72. 

.31 

1 

.12, 

,  1 

.03 

.67 

.18, 

- 

.11 

-.38 

» 

.29, 

DC2 

420 

*  - 

.  17, 

- 

.08, 

0 

.00 

.09, 

.13 

.13 

•24, 

.27 

.29, 

.30, 

DC2 

425 

$ 

.29, 

.26, 

.23 

.21, 

.13 

9 

.09 

•02, 

- 

.04 

-.18 

- 

.32. 

DC2 

430 

S  - 

.51, 

- 

•72, 

- 

.96 

-1 

.18, 

-1 

.50 

,-1 

.62 

-1.81 , 

-2 

.04 

-2.29, 

-2 

•  49, 

0C2 

435 

S-2 

.62, 

-2 

.87, 

,-3 

.03 

-3 

.21 , 

-5 

.00 

,-5 

.00 

-5.00, 

-5 

.00 

-5.00, 

♦5 

.00, 

0C2 

440 

$-5 

.00, 

-5 

.00, 

-5 

.00 

-5 

.00, 

-5 

.00 

,-5 

.00 

-4.01 , 

-3 

.38 

-3.01  , 

-2 

.63, 

DC  2 

445 

$-2 

.32, 

-2 

.09, 

-1 

.98 

-1 

.94, 

-a 

.00 

,-2 

.14 

-2.26, 

-2 

.20, 

-2.02, 

-1 

.82/ 

DC2 

450 

OATA  CS71  / 

DC2 

455 

1-1 

.59, 

-1 

.43, 

-1 

.38 

-1 

.46, 

-1 

.64 

,-1 

.90 

-2.09, 

-2 

.54 

-2.91 , 

-3 

.28, 

DC2 

460 

2-3 

.61 , 

-3 

•72, 

-3 

.64 

-3 

.50, 

-3 

.41 

.-3 

.37 

-3.30, 

-3 

.16, 

-3.01 , 

-2 

.76, 

DC2 

465 

3-2 

.51, 

-2 

.20, 

-1 

,80 

-1 

.49, 

-1 

.22 

1  " 

.97, 

-.72, 

- 

.49, 

-.20, 

.03, 

DC2 

470 

4 

.20, 

.36, 

.51 

.61  , 

.67 

.83, 

1.00, 

1 

.22 

1  .38, 

1 

.56, 

DC2 

475 

S  1 

.70, 

1 

.86, 

,  2 

.01 , 

2 

.20, 

2 

.31 

,  2 

.47, 

2.61 , 

2 

.76 

2.92, 

3 

.01 , 

DC2 

480 

6  3 

,05, 

3 

.02, 

2 

.98 

2 

.98, 

3 

.01 

,  3 

.03, 

2.97, 

2 

.78 

2.44, 

2 

.13, 

0C2 

485 

7  1 

.83, 

1 

.59, 

1 

.49 

1 

.50, 

1 

.87 

,  1 

.94, 

2.22, 

2 

.SO, 

2.71 , 

2 

.93, 

DC2 

490 

8  3 

.12, 

3 

.18, 

3 

.17 

3 

.15, 

3 

.21 

,  3 

.26, 

3.19, 

2 

.98, 

2.53, 

2 

.14, 

DC2 

495 

9  1 

.70, 

1 

.22, 

.55 

- 

.27, 

-1 

.09, 

,-2 

.54, 

-3.00, 

-2 

.94, 

-2.78, 

-2 

.68, 

DC2 

500 

S-2 

.61 , 

-2 

.60, 

-2' 

.63 

-2 

.60, 

-a 

.57, 

,  -2 

.53, 

-2. 57, 

-2 

.64, 

-2.77, 

-3 

.04. 

DC  2 

505 

$-3 

.38, 

-3 

.98, 

-5 

.00, 

-5 

.00, 

-5 

.00, 

,  -5 

.00, 

-5.00, 

-5 

.00, 

-5.00, 

-5, 

.00, 

DC2 

510 

S-S 

.00, 

-5 

.00, 

-5. 

.00, 

_  E 

.00, 

-5 

.00, 

,  -5 

.00, 

-5,00, 

-5 

.00, 

-5.00, 

-6 

.00, 

0C2 

515 

$-5 

.00, 

-4 

.00, 

-3 

.73, 

-3 

.62, 

-3 

.59, 

i-3 

.53, 

-3.56, 

-3 

.57, 

-3.53, 

-3 

.51, 

DC  2 

520 

1-3 

.45, 

-3 

.37, 

-3 

.26, 

-3 

.21  , 

-3 

.18, 

,-3 

.27, 

-3.36, 

-3 

,60, 

-3.96, 

-5, 

,00, 

DC2 

525 

J-S 

.00, 

-5 

.00, 

•5 

.00, 

-5 

.00, 

-5 

.00, 

,“5 

.00, 

-5.00 , 

-5, 

.00, 

-5.00, 

-5 

,ou, 

DC2 

530 

$-6 

.00, 

-5 

.00, 

-5 

,0s>, 

-5 

,00, 

-5 

.00, 

-5 

.00, 

-5.00, 

-5 

.00, 

-5.00, 

-5, 

.00, 

DC  2 

635 

$-5 

.00, 

-5 

.00, 

-5 

.00, 

-S, 

.00, 

-4 

.62, 

, -4 

,07, 

-3.89, 

-3. 

,7b, 

-3.67, 

-3. 

.58, 

oca 

540 

S"3 

.42, 

-3 

■  35, 

-3 

2G , 

-3 

.10, 

-3 

.14, 

,  -3 

.11  1 

-3.09, 

-3, 

.10, 

-3.12, 

-3. 

.23, 

DC3 

545 

$-3. 

.30, 

-3, 

.36, 

-3, 

,37, 

-3 

.29, 

-3 

,14, 

1  ■  3 

.08, 

-3.00. 

-2, 

.93, 

-2.69, 

-a. 

91/ 

oca 

sso 

OATA  C73' 

1  / 

DC2 

555 

1-3 

.00. 

-3 

.08, 

-3, 

,16, 

-3. 

,31 , 

-3 

.48, 

,-3 

.71  , 

-3.98, 

•5 

.00, 

5.00, 

-5, 

,00, 

oca 

560 

2-5 

.00, 

-4 

.52. 

-3 

,98, 

-3, 

,69, 

-3, 

,42, 

-3 

,18, 

-2.95, 

-2, 

.77, 

-2.61 , 

-2, 

,4B, 

DC2 

585 

3-2 

.41 , 

-2 

.41, 

-2, 

.40, 

-2. 

.38, 

-2, 

.34, 

,-a 

,37, 

-2.21 , 

-2, 

,31, 

-2.48, 

-a, 

,73, 

oca 

570 

4-3 

,21. 

-4 

,13, 

-5, 

,00, 

-5, 

.00, 

-5, 

.00, 

,-5 

,00, 

-5.00. 

-5, 

,00, 

-5.00, 

-5, 

,00, 

oca 

S7S 

5-5 

,00, 

-5 

,00, 

-5, 

,00, 

-5, 

,00, 

-5. 

.00, 

-5 

,00, 

-5.00. 

-5, 

,00, 

-5.00, 

-5, 

,00, 

oca 

580 

6-5 

.00, 

-5 

.00, 

-4, 

.13, 

-4, 

,02, 

-3, 

.99, 

-3 

.96, 

-3.87. 

-3. 

,73, 

-3.61 , 

-3, 

,29. 

oca 

585 

7-3 

,13, 

-2 

,99, 

-2. 

,84, 

-2, 

.73, 

-2, 

.69, 

-a 

,68. 

-3.64. 

65, 

-2.62, 

-2. 

59, 

oca 

590 

8-2 

,57, 

-a 

,62, 

-2. 

,31, 

-3, 

,04, 

-3, 

.21  , 

-3 

,39. 

-3.42. 

-3. 

,36, 

-:>.2. . 

-3, 

,03. 

oca 

595 

8-2 

,93. 

-2 

,80, 

-a, 

,64, 

-2, 

52, 

-a, 

,37, 

-a 

.28, 

-2.20. 

-2. 

13, 

-2.07, 

-2. 

02, 

DC  2 

600 

*-t 

,96, 

-t 

.08. 

-t. 

,78, 

-1 , 

63, 

-t, 

44, 

-1 

,31. 

“1.20. 

-1 . 

08, 

-.98, 

"  1 

94. 

C03 

60S 

$  - 

,86, 

- 

76, 

.52, 

31. 

.08, 

13. 

.30, 

37, 

,38, 

36, 

oca 

610 

5 

35, 

39, 

39. 

46, 

48, 

,41  . 

.23. 

08, 

-.38, 

67, 

oca 

615 

1  - 

88, 

- 

96, 

98. 

87, 

-, 

,67, 

- 

36. 

-.12. 

14, 

.44, 

88, 

oca 

820 

$ 

,90, 

i 

11. 

1. 

19. 

1. 

24, 

1 , 

25, 

1 

,26. 

1.27. 

1 ! 

51. 

1.59. 

l! 

50, 

oca 

825 

3  1 

28. 

71, 

11. 

«, 

28. 

97, 

-1 

32. 

-1.61, 

-1 . 

58, 

-1.42, 

-1. 

18, 

oca 

830 

*  - 

91. 

- 

59, 

-, 

27. 

00, 

as, 

57. 

•  73. 

92. 

■  51 , 

73. 

oca 

835 

* 

79, 

91, 

1, 

01, 

1. 

03, 

88, 

72, 

.63, 

38. 

.12. 

21, 

oca 

840 

s  - 

47. 

- 

67, 

-1. 

23. 

-1 . 

67, 

-a! 

31, 

-a 

76. 

-3,24, 

-s! 

49. 

-3.51, 

-3. 

47, 

oca 

645 

S-3 

39, 

-3 

37, 

-3. 

43. 

-3. 

53, 

-3. 

SO, 

-3 

35, 

-3.18, 

-3. 

07. 

-2.56. 

-3. 

08/ 

oca 

850 

DATA  C951 

/ 

oca 

655 

t-3. 

14, 

-3. 

12. 

-3. 

23, 

-3. 

07, 

-a. 

83, 

-a 

47. 

-2.23, 

-a. 

07, 

-1.91, 

-1. 

78. 

oca 

880 

a-i. 

63, 

-1 . 

46, 

-1. 

27 , 

-1 , 

23, 

-1 . 

as, 

-1 

40, 

-1.57, 

-1 . 

68, 

-3.28, 

-2. 

87, 

oca 

885 

3-3. 

74, 

-5- 

00, 

-6. 

00. 

-3. 

00, 

-5. 

00, 

-5 

00. 

-5.00, 

-5. 

00, 

-5.00, 

-5. 

00. 

oca 

870 

4-5. 

00. 

-5. 

00, 

-5. 

00, 

-5. 

00, 

-5. 

00, 

-5 

00, 

-5.00, 

-5. 

00, 

-5.00, 

-5. 

00, 

oca 

•75 

•-6. 

00, 

-5. 

00, 

-5. 

00. 

-5, 

00, 

-5. 

00, 

-5 

OO, 

-6.00, 

-9. 

00, 

-5,00, 

-5. 

00, 

oca 

•■0 

6-8. 

00, 

-5. 

00, 

-6. 

00, 

-5. 

00, 

-5. 

00, 

-5 

00. 

-5.00, 

-5. 

00. 

“5.00, 

00, 

oca 

643 

145 


7-5.00 

,-5.00, 

,-8.00 

,-S.OO 

,-8.00, 

-8.00 

1-8.00 

,-9.00 

,-8.00) 

,-5.90, 

0C2 

990 

•-8. 00 

,-5.00, 

,-8.00 

,-s.oo 

,-5.00, 

-8.00, 

,-8.00 

,-8.00 

,-8.00) 

,-8.00, 

OC2 

898 

9-8.00 

,-8.00, 

,-3;oo 

,-8.00 

.-8.00, 

-8.00, 

>-8.00 

.-8.00 

,-9.00, 

,-8.00, 

DC2 

700 

$-8. 00 *-8.00, 

,-8.00 

,-5.00 

,-S.OO, 

-8.00, 

,-•.00 

,-a.oo 

,-8.00) 

,-9.00, 

oca 

70S 

$-8.00 

,-5.00, 

,-8.00 

,-5.00 

,-5.00, 

-8.00, 

,-t.oo 

,-8.00 

,-8.00, 

,-8.00, 

oca 

710 

$-8.00, 

,-5.00, 

,-5.00 

,-5.00, 

,-S.OO, 

-8.00, 

,“8.00 

,-8.00 

,-8.00, 

,-8.00, 

0C2 

718 

$-8.00, 

,-5.00, 

,-8.00 

,-S.OO 

,-8.00, 

-5.00, 

,-*.00 

,-5.00 

,-8.00, 

,-8.00, 

oca 

730 

$-8.00, 

,-5.00, 

,-S.OO 

,-8.00 

,-5.00, 

-8.00, 

,-5.00 

,-8.00 

,-8.00, 

,-8.00, 

oca 

729 

$-8.00, 

1-8.00, 

,-4.91 

,-4.79 

,-4.81, 

-4.48, 

,-4.40 

,-4.39 

.-4.17, 

,-3.90, 

oca 

739 

$-3.73, 

,-3.89-, 

,-3.62 

,-3.*2 

,-3.73, 

-3.69, 

,-3.31 , 

,-3.12 

.-3.91, 

,-2.83, 

OC2 

735 

$-3.41, 

,-2.27, 

,-2.16 

,-2.11 

,-2.28, 

-3.29, 

,-2.21, 

,-3.08 

,-1.91, 

,-1.99, 

oca 

746 

$-3.27, 

,-2.89, 

.-2.88, 

,-3.35 

,-3.69, 

-3.79, 

,-3.68, 

,-3.83 

,-3.49, 

,-9.39, 

oca 

745 

$-3.31, 

i-J.18, 

-2.97 

,-2.69, 

,-3.39, 

-2.11, 

,-1.83, 

,-1 .66 

,-1.49, 

,-1.22/ 

oca 

790 

DATA  Cl  141  / 

i 

oca 

783 

1-1.08, 

-.89, 

-.68, 

,  -.84, 

,  -.71, 

-.79, 

i  -.78, 

,  -.66 

,  -.49, 

,  -.54, 

oca 

?64 

2  -.86, 

-1.37, 

-2.08, 

,-2.44, 

,-3.48, 

-3.72, 

-3.74, 

,-3.89( 

,—3.22, 

i^2.98. 

oca 

798 

3-2.52, 

-2.21 , 

-1.84, 

,-1.34, 

,-1.08, 

-.86, 

-.72, 

,  -.61, 

,  -.70, 

,  -.72. 

oca 

770 

4  -.87, 

-.57, 

-.33, 

,  -.51, 

,  -.97. 

-1.38, 

-1.89, 

,-2.74, 

,“3.19, 

,-4.21, 

oca 

778 

8-4.57, 

-4.62, 

-4.78, 

,-4.87, 

,-5.00, 

-5.00, 

-8.00, 

,-9.00) 

,-5.00, 

,-S.OO, 

oca 

789 

6-4.93, 

-4.46, 

-3.99, 

,-3.45, 

,-2.99, 

-3.83, 

-2.30, 

,-2.09, 

,-2.02, 

“2.12, 

OC2 

789 

7-2.18, 

-2.13, 

-3.04, 

,-1.76, 

,-1.83, 

-2.08, 

-3.29, 

,-2.St , 

,-3.01, 

-3.15, 

OC2 

790 

8-3.22, 

-3.29, 

-3.58, 

,-3.69, 

,-4.48, 

-4.88, 

-5.00, 

,-5.00, 

,-5.00, 

-8.00. 

oca 

798 

9-5.00, 

-8.00, 

-5.00, 

i-O.OO, 

,-5.00, 

-8.00, 

-3.00, 

,-5.00, 

,-5.00, 

-8.00. 

oca 

•00 

$-4.81, 

-4.82. 

-4.11, 

,-3.69, 

-3.09. 

-2.99, 

-2.91, 

-2.89, 

,-3,19, 

-3.20, 

oca 

008 

$-3.36, 

-3.62, 

-3.89, 

,-3.92, 

-3.73, 

-3.53, 

-3.37, 

-3.19, 

,-3.02, 

-2.79, 

DC2 

■10 

$-2.52, 

-2.38, 

-3.34, 

,-2.19, 

,-3.32, 

-2.41, 

-3.29, 

,-2.06, 

,-2.00, 

-2.18, 

oca 

•15 

$-2.47, 

-2.91, 

-3.57, 

,-4.99, 

-8.00, 

-8.00, 

-8,00, 

•5.00, 

-8.00, 

-4.61. 

0C3 

•30 

$-4.18, 

-3.99, 

-3.57, 

,-3.30, 

-3.03, 

-3.74, 

-2.51, 

-2.30, 

,-1,98. 

-1.73, 

oca 

•38 

$-1.57, 

-1.38, 

-1.21, 

-1.11, 

-.98, 

-.87, 

-.78, 

,  -.80, 

,  -.37, 

-.1*. 

oca 

•30 

$  -.04, 

-.04, 

-.06, 

-.18, 

-.18, 

-.19, 

-.23, 

-.45, 

,-1.02, 

-1.97, 

oca 

•39 

$-2.70, 

-3.71, 

-4.01, 

-4.20, 

-4.35, 

-4.59, 

-4.73, 

-4.01, 

-5.00, 

-8.00, 

oca 

840 

$-5.00, 

-5.00, 

-8.00, 

-3.00, 

-5.00, 

-8.00, 

-8.00, 

-8.00, 

,-S.OO. 

-3.00. 

oca 

849 

$-8.00, 

-5.00, 

-3.00, 

-8.00, 

-8.00, 

-8.00, 

-8.00, 

-9.00, 

-5.00, 

-8.00/ 

oca 

•SO 

DATA  Cl 331  / 

oca 

■99 

1-5.00, 

-5.00, 

-8.00, 

-8.00, 

-5.00. 

-5.00, 

-3.00, 

-9.00, 

-5.00, 

-5.00, 

oca 

680 

3-5.00, 

—5.00 , 

-8.00, 

-3.00, 

-8.00, 

-8.00, 

-8.00, 

-3.00, 

-8.00, 

-8.00. 

oca 

668 

3-5.00, 

-5.00, 

-8.00, 

-5.00, 

-3.00, 

-3,00, 

-5.00, 

-5.00, 

-5.00, 

-6.00, 

oca 

■70 

4-5^00, 

-8.00, 

-8.00, 

-5.00. 

-9.00, 

-8.00, 

-5.00, 

-9.00, 

-5.00, 

-5.00, 

oca 

■79 

8-8:00. 

-8.00. 

-8.00, 

-5.00, 

-8.00, 

-5.00, 

-5.00, 

-8.00, 

-8.00, 

-6.00. 

oca 

890 

8-8.00, 

-5.00, 

-3,00, 

-4.71, 

-4.31, 

-3.89. 

-3.86, 

-3.50, 

-3.34, 

-3.22, 

oca 

899 

7-3.33, 

-3.28, 

-3.24, 

-3.19, 

-3.10. 

-3.07. 

-3.18. 

-3.41, 

-3,87, 

-4.12, 

DC3 

■90 

8-4.68, 

-5.00, 

-5.00, 

-5,00, 

-5.00. 

-5.00, 

-8.00. 

-5.00, 

-4.81, 

-4.19, 

DC  2 

■99 

9-3.73, 

-3.48, 

-3.17. 

-2.98. 

-2.73, 

-2,63, 

-2.88. 

-2.89, 

-2.87, 

-2.49, 

oca 

•00 

$-2.43. 

-3.38, 

-2.48. 

-2.62. 

-3.02, 

-3.49. 

-4.18, 

>9.00. 

“9.00, 

-5.00, 

oca 

909 

$-8.00. 

-3.00, 

-8.00, 

-8.00, 

-5.00, 

-8.00- 

-8.00. 

-8.00, 

-4.87, 

-4.30. 

oca 

810 

$-4.31, 

-3.90, 

-3.66, 

-3.86, 

-3.51, 

-3.81, 

-3.61. 

-3.49. 

-3.41, 

“3.34, 

OC3 

•18 

$-3.34. 

-3.47, 

-3.60, 

-3.67, 

-4.33. 

-4.89. 

-8.00, 

-5.00, 

-8.00, 

-9.00, 

oca 

920 

$-8.00. 

-8.00, 

-8,00, 

-8.00, 

-8.00, 

-5.00, 

-5.00, 

-5.00. 

-9.00, 

-4,83, 

DC  2 

•as 

$-4.51. 

-4.10, 

-3.78, 

-3.32, 

-3.03, 

-2.74. 

-3.43, 

-3.09, 

-1.63, 

-1.89, 

oca 

930 

$-1.39, 

-1.02, 

-.91, 

-.70, 

-.73, 

-.00. 

-1.08, 

-1  19, 

-1.35, 

-1.47, 

oca 

•39 

$-1.57. 

-1 .89, 

-1,80, 

-1,91, 

-2,04, 

-2.19, 

-2.33, 

-3.47, 

-3.81, 

-2.79, 

oca 

940 

$-2.97. 

-3.10, 

-3,28, 

-3,44, 

-3.83. 

-3.81. 

-3.98, 

“4.19, 

-4.33, 

“4.81 , 

oca 

049 

$-4.71, 

-4.90, 

-8,00, 

-9.00, 

-8.00, 

-6.00, 

-8.00. 

-8.00, 

-8.00, 

-4.33/ 

DC2 

990 

OAT*  Cl 531  / 

-1.92, 

oca 

989 

1-3.34. 

-2,89, 

-2.12, 

-1.87, 

-1.34, 

-1.18, 

-1,03, 

-.92. 

-.64, 

oca 

•90 

2  -.4$, 

-.31, 

-.14, 

-.00, 

•06. 

.21. 

•  39, 

.83, 

.81, 

.72, 

oca 

Ml 

3  .95. 

.96, 

1.02, 

1.13, 

1.18, 

1,21. 

1.17, 

1.09, 

.88, 

.90, 

oca 

•TO 

4  .97, 

1.13. 

1.37, 

1.59, 

1.74, 

1.70, 

1.49, 

1.13, 

>73, 

.33, 

oca 

•78 

9  -.81, 

-1.87, 

-3.49. 

-8.00. 

-8.00,' 

•9.00. 

-9.00, 

-8.00. 

-8.00, 

-8.00, 

OC2 

NO 

8-8.00.-9.09. 

-8.00, 

-8.00, 

-8.00/ 

oca 

M« 

(NO 

oca 

NO 

146 


c* 

c 

c 

c 

c 


•LOCK 

OATA  C30 

0C3 

1O0 

BLOCK 

OATA 

DC  3 

105 

OZONE  BAND  MOOEL  ABSORPTION  COEPFtCIENTS 

DCS 

110 

CS  LOCATION 

1 

V  ■  575  CM-1 

DC  3 

115 

C3  LOCATION 

510 

V  ■  3270  Ctt-1 

0C3 

120 

COMMON  /C3/  C3(S40) 

DCS 

125 

COMMON  /C3/  COOt (196) (Cl 91 (190) iC3B1 1 tOC) 

DC  3 

130 

DATA  C001  / 

DCS 

135 

1-4.15 

-3.51, 

-3.00, 

-2.94, 

-2.12, 

-1.78, 

-1.90, 

-1.21, 

-.88, 

-.49. 

0C3 

140 

2  -.29 

-.10, 

.02, 

MS, 

■24, 

.32, 

.43, 

.52, 

.56, 

.65, 

063 

145 

3  .72, 

-79, 

.76, 

.72. 

.68, 

.64, 

.68, 

.79, 

•66, 

.83, 

DCS 

ISO 

4  .*0, 

.78, 

.69, 

.58, 

.49, 

.42, 

.34, 

.36, 

.14, 

.02. 

DC  3 

155 

5  -.14, 

-.35, 

-.61, 

-.74, 

-.88, 

-1.17, 

-1.40, 

-1.58, 

-2.11, 

-2.47, 

PC3 

150 

B-2.83, 

-3.24, 

-3.59, 

-3.94, 

-5.00, 

-5.00, 

-5.00. 

-5.00, 

-5.00, 

-5.00, 

DC  3 

165 

7-8.00, 

-5.00, 

-5.00, 

-9.00, 

-5.00, 

-4.46, 

-4.00, 

-3.50, 

-3.14, 

-2.78, 

DCS 

570 

8-2.41 , 

-2.10, 

-1.78, 

-1.49, 

-1.20, 

-.20, 

.15, 

.35, 

.57, 

.75, 

DCS 

175 

9  .95, 

1.20, 

1.40, 

1.95, 

1.80, 

1.97, 

2.10. 

3.21, 

3.31, 

2.38, 

DCS 

180 

8  2.40, 

2.42, 

2.58, 

2.52, 

2.20, 

2.48, 

2.54, 

2.45, 

2.30, 

2.00, 

6C3 

185 

8  1.20, 

.95, 

.92, 

.90. 

.90, 

.as, 

.90, 

.93, 

.84, 

.95, 

0C3 

190 

$  .98, 

.95, 

.90, 

.80, 

.68, 

.55, 

.40, 

.30, 

.18, 

.08, 

DCS 

195 

t  -.02, 

-.11, 

-.22, 

-.41, 

-.56, 

-.71, 

-.59, 

-1 .03, 

-1.18, 

-1.33, 

DCS 

200 

8-i. eo, 

-1.76, 

-1.90, 

-2.02, 

-2.21, 

-2.40, 

-2.59, 

-2.79, 

-3.00, 

-3.22, 

DC  3 

305 

8-3. 8t, 

-4.16, 

-5.00, 

-5.00. 

-5.00, 

-5.00, 

-5.00, 

.-5.00, 

-5.00, 

"•5.06, 

DC3 

210 

8-5.00, 

-5.00, 

-5.00, 

-5,00, 

-5.00, 

-5,00, 

-5.00, 

-5.00, 

-5,09, 

-5.00, 

DCS 

215 

8-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00. 

-5.00, 

“5.00, 

“8. CO, 

oca 

230 

8-9.00, 

-5.00, 

-5.00, 

-S.OO, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

oca 

325 

8-5.00, 

-5.00, 

-5.00, 

-5.00, 

“5.00, 

-5.00, 

-5.00. 

-5.00, 

-5.00, 

-5.00/ 

DCS 

330 

OATA  C19I  / 

DCS 

235 

1-8.00, 

-5.00, 

-5.00, 

-S.OO. 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-5.00, 

-6.00, 

DCS 

240 

2-5.00, 

-5-00, 

-5.00, 

-5.00, 

-4.18, 

-3.81, 

-3.66. 

-3.41, 

-3.05, 

-3.69, 

DCS 

245 

3-2.44, 

-2.19, 

-2.03, 

-1,88, 

-1.71, 

-1.56, 

“1.48. 

-1.39, 

-1.26. 

,-1.l3. 

oca 

250 

4  -.97, 

-.81, 

-.65, 

-.49, 

-.35. 

-.22, 

-.14, 

-.06, 

-.03, 

-.09. 

oca 

255 

5  -.18, 

-.14, 

.06, 

.28, 

-.92, 

-.43, 

-.80, 

-.82. 

-.60, 

-.74, 

DC3 

260 

e  -.74, 

-.79, 

-.84, 

-.89, 

-.85, 

-.61. 

-.76. 

-.70, 

-.69, 

-.64, 

oca 

S85 

T  -.65, 

-.68, 

-.72, 

-.78, 

-*.04, 

-.90, 

“1 .02, 

-1.1«, 

-1.24, 

-1.33. 

oca 

370 

9-1.4;, 

-1.61 , 

-1.77, 

-1.92, 

-..98. 

-2.04, 

-2.08, 

-3.09, 

-2.08, 

-2.03. 

oca 

275 

9-1.98, 

-1.93, 

-1.87. 

-1.82, 

-1.78, 

-1.71, 

-1.69. 

-1.59, 

-1 .51 , 

-1.44. 

DCS 

260 

8-:. 38, 

-1.28, 

-1.18. 

-1.09. 

-.98, 

-.69, 

-•78, 

-.69, 

-.99, 

“.49. 

oca 

285 

t  -.37, 

-.25, 

-.18, 

-.10. 

S.OO, 

.16, 

.27, 

.39. 

.57, 

.75, 

oca- 

280 

8  .93. 

1.11 , 

1.30, 

1.33. 

1.44, 

1.46, 

1.48, 

1.48, 

1.64, 

1.56, 

oca 

255 

8  1.49, 

1.23, 

.88, 

.38, 

-.33. 

-.71, 

-.68. 

-.88, 

-.49, 

-.44, 

oca 

aoo 

3  -.40, 

-.40. 

-.46. 

-.53, 

-.84, 

-.76. 

-.89, 

-1.01, 

-1.14, 

-1.38. 

oca 

305 

8-1.40, 

-1.55. 

-!.«». 

-1.93. 

-I. 98. 

-3.13, 

-3- 38. 

-7.43. 

-3.64, 

-3.88, 

DC  3 

310 

8-3.07, 

-3. St. 

-3.50. 

-3.72, 

-3.94. 

-5.00, 

-9.00. 

-8.00. 

-5.00, 

-5.00, 

0C3 

315 

8-9.00, 

-5.00, 

-5.00. 

-S.OO, 

-a, oo. 

-9.00. 

-5.00, 

-5,00, 

-5.00. 

-8.00, 

oca 

320 

8-5.00, 

-9.00. 

-9.00. 

-5.00. 

-5,00, 

-9.00. 

-8.00, 

-9.00, 

-5.00, 

-5.00, 

oca 

325 

$-9,03, 

-9.00. 

-9.00. 

-5.00. 

-9.00, 

-5.00, 

-8.00. 

-5.00, 

-5.00, 

“5.00/ 

oca 

330 

DATA  C381  / 

DC  3 

135 

1-9.00. 

-8.00 , 

*9.00. 

-9.09. 

-9,00, 

-5.00. 

-5.90, 

“S.OO, 

-9.00. 

-S.OO. 

oca 

340 

2-9.00, 

-3.00, 

-9.00. 

•9.00. 

-s.oo, 

-5.00. 

-5.00. 

-5.00. 

-5.00, 

-5.00, 

oca 

345 

3-S.OO, 

-5.no, 

-s.oo, 

*9.00, 

-9.00, 

*5.09, 

-9.00. 

-s.oo. 

-9.00, 

-5.00. 

oca 

350 

4-5.00. 

-8.00, 

*9.00, 

-4,16. 

-J.97, 

-3  77. 

-3.98. 

-3. St, 

-3.67. 

-3.75, 

oca 

355 

8-2.44, 

-2,12, 

*1.85. 

-1v87. 

-1,07, 

"■•95s. 

-.94. 

-.89, 

-.95. 

oca 

390 

e  -.«i. 

-.77, 

“.73, 

-.86, 

-.03. 

-.86. 

-.53. 

-.««> 

-.41. 

-.34, 

oca 

385 

7  -.39, 

-.19. 

-.17, 

-.18. 

-.48, 

-.79, 

-1 .15. 

-1.45, 

-1.75. 

003 

370 

8-2.39. 

-3,67, 

-3.57, 

-4.19. 

“9.69. 

-5.00, 

-5.09. 

-4.16, 

-3.50, 

-J.6J, 

oca 

375 

9-3. JT. 

“3.10. 

-2.79, 

-2,47, 

-1.84. 

“1.73, 

-1.83. 

-1.63, 

*1 .41 . 

DCS 

380 

8-1.33. 

-1.28. 

-1.17, 

-1 ,09. 

*1.02, 

-.66, 

-.83. 

-.73, 

-.99. 

oca 

319 

1  -.84. 

-.43, 

-.37, 

-  13. 

.03, 

.16. 

.34, 

.31, 

•  39, 

CCS 

390 

8  .49. 

.49, 

.59, 

,90,. 

,«t. 

.46, 

>33, 

.01. 

-.it. 

*.33. 

oca 

395 

8  -.59, 

-.77. 

*.0'3. 

-.88. 

-.94, 

-.83. 

-•91. 

-.80. 

-.99, 

-.90, 

oca 

400 

8  -.78. 

-.7)  . 

-.*9. 

-.87. 

-.88. 

*•■85, 

-.85. 

-.#7, 

oca 

40* 

8  -.70, 

-.73, 

*.«a, 

-.93.’ 

-1.03^; 

-1.14, 

-1.34, 

-1.84. 

-1.91, 

-1.98. 

oca 

410 

8-2.13. 

“3,87, -2  :M» 

-3,38,’ 

-4.lt. 

-9.00, 

i 

T 

-8.00/ 

oca 

41* 

END 

oca 

400 

14? 
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•LOCK  DATA  C40  DC4 

C*  SLOCK  DATA  DC4 

COMMON  /C4C8/  C40t(1 14} ,C411B(1B) ,CB( 103)  DC4 

C  N!  CONTINUUM  ABSORPTION  COEFFICIENTS  0C4 

C  C4  LOCATION  1  V  •  2080  CM-1  0C4 

C  C4  LOCATION  133  V  ■  3740  CM-1  0C4 

OATA  C401  /  DC4 

1  2.93E-04,  3.86E-Q4,  S.09E-04,  8.56E-04.  8.85E-04,  1.08E-03,  DC4 

2  I.31E-03,  1.T3E-03,  3.27E-03,  3.T3E-03,  3.36E-03,  3.95E-03,  OCA 

3  5.4BE-03,  T.19E-03,  9.0OE-03,  1.13E-02,  1.36E-02,  1.68E-02,  OCA 

4  1.96E-02,  a.lBE-02,  3.36E-02,  2.83E-02,  8.90E-02,  3.1SE-02,  OCA 

5  3.40E-03.  3.68E-02,  3.92B-02,  4.28E-02,  4.60E-02,  4.93E-02,  OCA 

8  S.30E-03,  8.B5E-02,  B.00E-02,  6.30E-02,  8.60E-02,  8.89E-02,  OCA 

T  T.18E-02,  7.39E-03,  7.80E-C2.  T.8AE-02,  8.08E-02,  8.39E-02,  OCA 

8  8. 70E-08,  8.13E-02,  9.56E-08,  1.08E-01.  1.30E-01,  1.36E-01,  OCA 

9  1.S2E-01,  1.60E-Q1,  1.89E-01,  1.60E-01,  1.51E-01,  1.37E-01,  OCA 

•  1 . 23E-01 ,  1.19E-01,  1.16E-01,  1.1AE-01.  1.1JE-01,  1.12E-01.  OCA 

t  1.1  IE-91,  1, 11E-01,  1.12E-01,  1.14E-01,  1.13E-01,  1.12E-01,  OCA 

$  1.09E-01,  1.07E-0J,  1.02S-01.  9.90E-02,  9.50E-02,  9.00E-02,  OCA 

S  8.69E-02,  8.20E-0J,  7.65E-02.  7.05E-08,  8.501-02,  6.10E-02,  OCA 

3  8.50E-02,  4.956-08.  A.S0E-08,  4.00E-08.  3.75E-02,  3.50E-  08,  OCA 

*3.106-08,  3.69E-08,  3.506-02.  2. 206-03.  1. 956-08,  1.T5E-08,  OCA 

•  1.60E-02,  1.A0E-08,  1.20E-02,  1.05E-02,  B.50E-O3,  9.00E-03,  OCA 

$  8. QOS-03,  T.flOE-03,  6.50E-03,  6.00E-Q3,  5.50E-03,  A.7SE-03,  OCA 

•  *. OOE-03,  3. 756-03,  3.50E-03,  3.00E-03,  8.SOE-03,  3.3SE-03.  OCA 

•  2.00E-03,  1.B5E-03,  1.70F-03,  1.80E-03,  1.50E-Q3,  1.806-03/  OCA 

DATA  C4115  /  OCA 

1  1.9AE-03,  1.80E-03,  1. ATE-03,  1.3AE-03,  1.856-03,  1.086-03,  OCA 

3  9.08E-04,  T.5SE-0A,  6.A1E-OA,  8.09E-O4,  A.OAE-OA,  3.38E-0A,  OCA 

3  2.86E-04  ,  3.33E-04,  1.946-04,  1.5T6-04.  1.316-04,  U02E-04.  OCA 

4  8.076-05/  OCA 

C  AM  H20  CONTINUUM  OCA 

C  OZONE  U.W.  A  VISIBLE  9AM0  MODEL  ABSORPTION  C0.6FF  OCA 

C  Cl  LOCATION  1  V  «  13000  CM-1  OCA 

C  CB  LOCATION  5B  V  •  84280  CM-t  OCA 

C  OV  .  800  CM-1  OCA 

C  CB  LOCATION  ST  V  •  27500  CM-1  OCA 

C  CB  LOCATION  102  V  -  80000  CM-1  OCA 

C  OV  »  MO  CM-t  OCA 

OATA  CB  /  OCA 

1  4.506-03.  8. 006-03.  1.076-93,  1,106-08.  1.376-03,  i. 716-03,  0C4 

2  3,096-02,  3.456-02.  3.076-02.  3.846-03.  4. 786-03.  3.875-03.  0C4 

38.346-02,  7 .836-03,  B.TS6-03,  1.006-91.  I.OSE-Oi,  1,296-01.  OCA 

4  1.2B5-OI,  1. 136-61 ,  1.H6-01.  t, 186-01,  1.196-Qt;,  1.136-01,  OCA 

8  1.036-01.  B. 346-02.  8. 886-02.  7.376-03,  7  976-63.  8.586-03,  OCA 

t  3.566-08.  4,776-0$.  4.086-03.  3.876-03.  3.916-08.  2.846-03.  OCA 

78.096-03,  1.106-03,  1.716-03.  1.8*6-03,  1.176-03.  7.T0*-ej.  OCA 

•  8.106-03,  B. 596 -03,  «.  .'06-03,  3.706-03  ,  3.206-03  ,  3.106-03.  OCA 

•3.556-03,  1.986-03,  1,406-03,  B.356-04.  3. 306-04.  0.  .  OCA 

BO.  .0.  .  3.856*04.  3.04E-03.  7.356-03,  2.036-02.  OCA 

B  4.916-83.  1.1B6-0-,  3.486-01,  3.1*6-01,  1.036*00.  1.B56*00.  OCA 

B  3. T1S-09.  B, 356*09.  1,3*t»0i.  3. 206*01 ,  3,976*01,  3.956*01,  OCA 

3  B. 596*01.  l.286»0a,  1.696*93.  3.066*02.  a.AjJ-oa,  3.7tc»03.  OCA 

3  3.9U*ea.  3,026*02,  3,036*03.  3.B46‘03  .  3.726*03  ,  3.34**03,  0C4 

8  3.396*03.  1.686*93.  I,*A*«02.  l  .176*03.  B. 736*01 .  .  .  OCA 

B  7.856*01.  *.046*01.  4.426*01,  3. *06-01.  3.326*01,  3.906v6f,  OCA 

t  1 .376*01,  1.396*01,  1.006*01,  B.B06*M.  B. 206*00,  8. *06*00/  OCA 

6M0  OCA 
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too 

105 

110 

115 

120 

123 

130 

135 

140 

145 

150 

155 

180 

165 

170 

175 

180 

185 

190 

193 

200 

205 

210 

215 

220 

233 

230 

833 

240 

843 

250 

355 

260 

365 

870 

875 

280 

205 

290 

295 

300 

303 

3i0 

313 

310 

313 

330 

HI 

3«0 

343 

330 

353 

3*9 

395 

3T0 

375 

360 


oo  on 


c* 


BLOCK  DATA  MARDTA 
SLOCK  DATA 


MARINE  AEROSOL  EXTINCTION  AND  ABSORPTION  DATA 

COOED  BY  STU  GATHMAN  -  NRL 


COMMON/A/T 1 0EXT ( 40 , 4 ) , T2QEXT (40  *  A) , T30EXT (40,4), 
1T1QABS(40,4) ,T2QABS(40,4) ,T3QABS(40,4),ALAM(40),AR£L(4) 
DIMENSION  A1 (40) ,A2(40) ,A3(40) , A4(40) 

DIMENSION  81 (40) , B2(40 ) , B3(40) , 84( 40 ) 

DIMENSION  Cl- (40)  ,C2(40)  ,C3(40)  ,C4(40) 

DIMENSION  D1 (40) ,02(40) ,03(40) ,04(40) 

DIMENSION  El (40) . £2(40) , E3(40) , E4(40) 

DIMENSION  FI (40) ,F2(40) ,F3(40) ,F4(40) 

EQUIVALENCE  (A1(1),  T1 0EXT( 1 , 1 ) ) ,  (A2(1),  T1QEXT(1 ,2) ) , 
+  ( A3 ( 1 ) ,  TtOEXT( 1 .3) ) ,  (A4(1 ) ,  T1QEXT( 1 ,4) ) 

EQUIVALENCE  (B1(1),  T2QEXT (1,1)),  (82(1),  T2QEXT( 1 ,2) ) , 
+  (B3( 1 ) ,  T2QEXT (1,3)),  (84(1),  T2QEXT(1,4)) 

EQUIVALENCE  (Cld),  T3QEXT(  1  , 1 ) ) ,  (C2(1),  T3QEXT(  1 ,2)  )  , 
+  (C3( 1 ) ,  T30EXT(1,3)),  (C4(1),  T30EXT(1.4)) 

EQUIVALENCE  (D1(1),  T1QABS( 1 , 1 ) ) ,  (02(1) .  T1QAB$( 1 ,2) ) , 
+  (03(1),  T1 QABS( 1,3)),  (04(1),  T1QABS( 1 ,4) ) 

EQUIVALENCE  ( El  ( 1 ) ,  T20ABS(1 ,1 ) ) ,  (E2(1),  T2QABS( 1 ,2) ) , 
( E3( 1 ) ,  T20ABS(1 ,3) ) ,  (E4(1),  T2QABS( 1 ,4) ) 


EQUIVALENCE  (F1(1),  T30ABS( 1,1)),  ( F2( 1 ) ,  T3QABS( 1 ,2) ) , 


( F3( 1 ) ,  T3QABS(1 ,3) ) ,  (F4(1),  T3QABS(1,4)) 
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DMA  100 
DMA  105 


DMA  110 
DMA  115 


DMA  120 
DMA  125 


DMA  130 
DMA  135 


DMA  140 
DMA  145 


DMA  ISO 
DMA  155 


DMA  160 
DMA  165 


DMA  170 
DMA  175 


DMA  1B0 
DMA  185 


DMA  190 
DMA  195 


DMA  200 
DMA  205 


DMA  210 
DMA  215 


DMA  220 
DMA  225 


DATA  A LAM/ 

DMA 

230 

.2000,  .3000,  .3371, 

.5500, 

.6943,  1.0000, 

1.5380, 

DMA 

235 

2.0000,  2.2500,  2.5000, 

2.7000, 

3.0000,  3.3923, 

3.7500, 

DMA 

240 

4.5000,  5.0000,  5.5000, 

6.0000, 

6.2000,  6.5000, 

7.2000, 

DMA 

245 

7.9000,  8.2000,  8.7000, 

9.0000, 

9.2000,  10.0000, 

10.5910, 

DMA 

250 

11.0000,  11.5000,  12.5000, 

14.8000, 

15.0000,  16.4000, 

17.2000, 

DMA 

265 

18.5000,  21.3000,  23.0000, 

30.0000, 

40.0000/ 

DMA 

260 

DATA  AREL/50. ,85. ,95. ,98./ 

DMA 

265 

OATA  At / 

DMA 

270 

-3.3075,  -3.4388,  -3.4998, 

-3.8225, 

-4.0134,  -4.4214, 

-4.8412, 

DMA 

276 

-5.1535,  -5.3158,  -5.4223, 

-5.0061 , 

-4.5105,  -5.3617, 

-5.7325, 

DMA 

280 

-5.7705,  -5.8315,  -5.8432, 

-5.1790, 

-5.2918,  -5.6851, 

-5.0307, 

DMA 

265 

-5.6737,  -5.6064,  -5.5378, 

-5. 6? 14, 

-5.5150,  -5.6582, 

-5.6047, 

DMA 

290 

-5.5235,  -5.3876,  -5.1767, 

-5.0918, 

-5.0916,  -6.1300, 

-5.1459, 

DMA 

295 

-5.1980,  -S'. 31 16,  -5.4009, 

-5.4889, 

-5.4794/ 

DMA 

300 

OATA  A2/ 

DMA 

305 

-2.8367,  -2.9363,  -2.9800, 

-3.2310, 

-3.3906,  -3.7440, 

”4.1271, 

DMA 

310 

-4.4371,  -4.6037,  -4.7610, 

-4.3752, 

-Ll. 0438,  -4,6259, 

-4.9386, 

DMA 

315 

-5.0863,  -5.1774,  -6.2542, 

-4.5523, 

-4.6578,  -4.9749, 

-5.0804, 

DMA 

320 

-5.1210,  -S  0976,  -5.0614, 

-5.0535, 

-5.0398,  -5.0783, 

-4 .  >779, 

DMA 

325 

-4.8738,  -4.7253,  -4.6080, 

-4.4250, 

-4.4269,  -4.4040, 

-4.4902, 

OMA 

330 

-4.5465,  -4.6661,  -4.7701, 
OATA  A3/ 

-4.8804, 

-4.9063/ 

DMA 

333 

OMA 

340 

-2-3685,  -2.4287,  -2.4634, 

-2.6256. 

-2,7481,  -3.0376, 

-3.3752, 

OMA 

345 

-3.6604,  -3.8213,  -3.9963, 

-3.7279, 

-3.2000,  -3.8573, 

-4.1858, 

DMA 

330 

-4.3378,  -4.4459,  -4.5631, 

-3.9208, 

-4.0099,  -4.3220, 

-4.4654, 

DMA 

355 

-4.6059,  -4.6055,  -4.4942, 

-4.4890, 

-4.4811,  -4.4718, 

-4.3569, 

DMA 

360 

-4.2468,  -4.0955,  -3.8765, 

-3.7923, 

-3.794(1,  -3.8304, 

”3.8590, 

OMA 

305 

-3.9176,  -4. '397.  -4.1491, 

-4.2678, 

-4.3079/ 

DMA 

370 

OATA  AD/ 

DMA 

375 

-1,8952,  -1.8992,  -1.7007. 

-1.7688, 

-1.8314,  -2. 0198, 

”2.2794, 

DMA 

380 

-2.5113,  -2.6490,  -2.8160, 

-2.7278, 

”2.2526,  -2.693S, 

-9.J477, 

OMA 

385 

-3.1498,  -3.2825,  -3.4079, 

-2.9515, 

”3.9968.  ”3.2674, 

”3.4312, 

CMA 

380 

'  -3.4956,  -3.6142,  -3.5311,  -3.5369, 
1  -3.3106,  -3.1626,  -2.9455,  -2.6564, 
'  -2.9762,  -3.1016,  -3.2146,  -3.3390, 
DATA  B,/ 

-0-5741,  -0.5495,  -0.5407,  -0.5337, 
-0.7237,  -0.7859,  -0.8664,  -0.9424, 
-1.0927,  -1.1616,  -1.2559,  -1.2119, 
-1.4649,  -1.5231,  -1.4562,  -1.4176, 


*  -1 .6417,  -1.5982, 

-1.4677, 

-1.3923, 

*  -1 .4667,  -1 .5804, 

-1.6833, 

-1.7932. 

OATA  82/ 

*  -0.1808,  -0.1611 , 

-0-1540, 

-0.1458, 

*  -0.2204,  -0.2730, 

-0.3485, 

-0.4413, 

•  -0.5277,  -0.5937, 

-0.6966, 

-0.6662, 

»  -0.9055,  -0.9551 , 

-0.9551 , 

-0.9511, 

*  -1 .1017,  -1 .0291 , 

-0.8689, 

-0.7683, 

•  -0.8307,  -0.9352, 

-1.0393, 

-1.1831, 

OATA  63/ 

•  0.2478,  0.2556, 

0-2585, 

0.2629, 

•  0.2935,  0,2573, 

0.2006, 

0.1027, 

«  0.0701,  0.0141, 

-0.0792, 

-0.0844, 

•  -0.2739,  -0.3153, 

-0.3508, 

-0.3700, 

*  -0.5142,  -0.4411, 

-0.2820, 

“0.1710, 

•  -0.2117,  -0.3013, 

-0.3962, 

-0.6177. 

OATA  64/ 

•  0.9239,  0.9234, 

0.9233, 

0.9221, 

•  1.0193,  1.0076, 

0.9877, 

0.9061 , 

•  0.9306,  0.8965, 

0.8359, 

0.7859, 

0.5825, 

•  0.6907,  0.6597, 

0.6125, 

*  0.3974,  0.4483, 

0.5830, 

0.6954, 

•  0.6899,  0.6286, 

0.5576, 

0.4580, 

OATA  01/ 

»  2.1467,  2.1504, 

2. 1518, 

2.1518, 

»  2.1925,  2.2131, 

2.2110. 

2,2005, 

2.2514,  2.2518, 

2.2426. 

2.2225, 

2.2600,  2.2349, 

2.3426, 

2.2489, 

2.1734,  2.1401. 

2.1221, 

3.1400, 

2.1779,  2.1813, 

2.1333, 

3.0841. 

OATA  02/ 

2.848',  2.5503. 

2.5511, 

3.5446, 

2.3795,  2.5987, 

2.6060, 

3,5958, 

3.6334.  2.8345, 

2.6273, 

2. 6164, 

2.6606,  3.8462. 

2.8439, 

2.6469, 

2.5268,  3,4991, 

2.5099, 

2.5641, 

3.5979,  3.8935, 

3.5793, 

2.5493. 

DATA  03/ 

3.9793,  2. 8801. 

3.9805, 

2.9789, 

3.0130,  3.0119, 

3.0248, 

3.0301, 

3.0478.  3.0449, 

3.0489, 

1.0418, 

3.0036.  3.0733, 

3.0840, 

3.0592, 

2.9670.  3.9424. 

2.9601, 

3.0119, 

3.0439.  3.0489, 

3.0435, 

3,0304, 

OATA  C4/ 

3.8818.  3.6538, 

3.8533, 

3.8540, 

3.6805.  3.872P, 

3.6814, 

3.5973. 

3.6997,  3,8944. 

3.6980, 

3,6936, 

3.7381.  3.7310. 

3.7155, 

3,7H!, 

3.8737,  3.8511, 

3.6603, 

3.8951, 

3.7309,  3.7303, 

3  >  73-46, 

3,7197, 

-3.5377, 

-3.5240,  -3.417!, 

DMA 

395 

‘2.8568, 

-2.8916,  -2.9211 , 

DMA 

400 

“3,3886/ 

DMA 

405 

DMA 

410 

-0.5059, 

-0.5367,  -0.6309, 

DMA 

415 

-0.7780, 

-0.8613,  -0.9585, 

DMA 

420 

-1.1778, 

-1.2870,  -1.4164, 

DMA 

425 

-1.4141 , 

-1,5730,  -1.6334, 

DMA 

430 

-1.3911, 

-1.4087,  -1.4207, 

DMA 

435 

-1.8237/ 

DMA 

440 

DMA 

445 

-0. t069, 

-0.1254,  -0.1608, 

DMA 

450 

-0.3715, 

-0.3017,  -0.3917, 

DMA 

455 

-0.6037, 

-0.7099,  -0.8351, 

DMA 

460 

-0.9598, 

-1.0824,  -1.1186, 

DMA 

485 

-0.7673, 

-0.7772,  -0.7932, 

DMA 

470 

-1.2354/ 

DMA 

475 

DMA 

480 

0.3062, 

0.3021,  0.3207, 

DMA 

485 

0.2291 , 

0.2511,  0.1858, 

DMA 

490 

-0.0062, 

-0.0893,  -0.1973, 

DMA 

495 

-0.3873, 

-0.4950,  -0.5325, 

DMA 

500 

-0.1693, 

-0.1718,  -0.1827, 

DMA 

5CS 

-0.6123/ 

DMA 

510 

DMA 

516 

0.9536, 

0.9578,  1.0162, 

DMA 

530 

0.9596, 

1.0192,  0.9964, 

DMA 

525 

0.8642, 

0.8244,  0.7549, 

DMA 

530 

0.8612, 

0.4575,  0.3987, 

DMA 

535 

0.6983, 

0.7068,  0.7036, 

DMA 

640 

0.3481/ 

DMA 

545 

DMA 

550 

2.1601, 

2.1671,  3.1870, 

DMA 

555 

2.1968, 

2.2383,  3.2326, 

DMA 

560 

2.3388, 

2.2431,  2.2484, 

DMA 

sou 

3.2491 , 

2.2426,  2.2065, 

DMA 

570 

3.1514, 

2.0095/ 

2.1749,  2.1771, 

DMA 

575 

DMA 

580 

DMA 

505 

2.5522, 

2.6782,  3.5831, 

DMA 

590 

2.5878, 

8.6117,  3.8342. 

DMA 

595 

2.6289, 

2.6391,  3.6630, 

DMA 

800 

2.6419, 

2.EQ10,  3.5591, 

DMA 

605 

2, 5871, 

3,8882,  3.6919, 

DMA 

010 

2.4884/ 

DMA 

015 

3.9037, 

DMA 

820 

2.9989,  3.0095, 

DMA 

335 

3,0125, 

3.0390.  3.0439, 

DMA 

830 

3.0480, 

3.0620,  3.0903, 

DMA 

835 

3.0549, 

3-0330,  3.9983, 

ONA 

840 

3.0146, 

3,0.101,  3.0383, 

DMA 

845 

9. 9894/ 

DMA 

850 

3 . 6574 , 

DMA 

855 

3.8807,  3.0753, 

DMA 

880 

3.8771, 

3.8973.  3.6983, 

DMA 

885 

3.7009, 

3.7131.  3.7340, 

DMA 

870 

3,7157, 

3.7197,  3.6999, 

IWA 

879 

3.8977, 

3. 7089.  3,7139, 

DMA 

800 

3.7330/ 

OKA 

«»• 

OAT*  01/ 

-7.760*,  -7.6136, 
-6.3660,  -6.3371, 
*#; 6767,  -5.8*73, 
-6.6611,  -S.6171, 
-6. 6366,  -5.3668, 
-3.16*3,  -8.3130, 


-7.6353,  -7.63*3, 
-6.0065,  -6.0*56, 
-6.6406,  -5.1630, 
-6.8477,  -5.8451, 
-5^1776,  -5.0634, 
-6.4013,  -5.4*91. 


-7.7777,  -7.6148, 
-4.5456,  -5.6074-, 
-5.3136,  -5.6176, 
-6.6346,  -5.6661, 
-5.0933,  -5.1306, 
-5.4796/ 


DMA  6*0 
-6.9697,  MU  60S 

-6.3374,  OMA  700 

-5.6515,  OMA  706 

-6.6064,  MU  710 

-6.14*9,  OMA  715 

OMA  730 


OATA  03/ 
-7.869f, 
-5.9064, 

-5.3670, 
-5.1500, 
-4.6765, 
-4.5475, 
OATA  03/ 
-7.3838, 
-5.3330, 
-4.7434. 
-4.5603, 
-4.3807, 
-3.8168, 
OATA  04/ 
-6.8467, 
-4.3913, 
-3.7845, 
-3.6336, 
-3.3308, 
-3.9861, 
OATA  El/ 
-4.1705, 
-3.5963, 
-3.1791, 
-1.957.  • 
-1.8439, 
-1.5359, 
DATA  63/ 
-4.0384, 
-3.1337, 
-1 .5831 , 
-1.4241 , 
-1.3354, 
-0.9064. 
OATA  E3/ 
-3.8575, 
-1.9840, 
-0.9739, 
-0,8409, 
-0.8428. 
-0.3134. 
OATA  E4/ 
-3.4382. 
-0.8613. 
-0.0813. 
0.0813, 
0.3338, 
0.5435, 
OATA  71/ 
-0.5499. 
1.0338, 


-7.6463, 

-6.0403, 

-5.4040, 

-5.11*8, 

-4.7368, 

-4.6669, 

-7.4591, 

-5.6306, 

-4.7805, 

-4.5492, 

'4.0979, 

-4.0415, 


-7.6693. 

-5.6344, 

-5.4134, 

-5.0787, 

-4.5091, 

-4.7705. 

-7.4907, 

-5.1375, 

-4.8257, 

-4.5280, 

-3.8766, 

-4.1504, 


-7.0906,  -7.1590, 
-4.6138,  -4.3513, 


-3.8391, 

-3.5324, 

-3.1592, 


-3.8898, 

-3.6235, 

-3.9518, 


-3.1082.  -3.3197, 

-4.1963.  -4.2063, 
-3.5394,  -2.3355, 
-3.1972,  -2- 1647. 
■1.9055.  -1.3233,  • 
-1.7370,  -1.5405, 
-1.6463,  -1.7393, 


-4.0927, 

-3.3637, 

-1.6215. 

-1.4077, 

-1.1137, 

-1,0118, 

■3.9117. 

•1.8756, 

-1.0177. 

-0.6395. 

-0.5362, 

■0.4037. 


-4.0730, 
-1 .8816, 
-1.6451, 

-1 . 3685, 
-0.6388, 
-1.1094, 

-3.8336, 
-1 .4045, 
-1.0854, 
-0.8354, 
-0.3544, 
-0.4930, 


-3.9831,  -3.0245, 
-1.0979,  -0.5964, 
-0.1030,  -0.1563, 
0,0563 .  0.0507, 
0.3330,  0.4751, 
0.4TB6,  0.4093, 

•0.5783,  -0.5894, 
1.0687,  1.3637, 


OMA  726 


-7.8720,  -7.8085, 

-7.3*80, 

-6.6040, 

OMA 

730 

-4,4663.  -3.6933, 

-4.9*53, 

-6.7335. 

OMA 

735 

-4.5667,  -4.6896, 

-5.0366, 

-5.1351, 

OMA 

740 

-5.0697,  -6.0543, 

-5.0873, 

-4.6624, 

OMA 

745 

-4.4280,  -4.4260, 

-4.4651, 

-4.4813, 

OMA 

760 

-4.6607,  -4.9068/ 

OMA 

755 

OMA 

760 

-7.8015,  -7.4267, 

-6.9782, 

-6.1118, 

OMA 

765 

-3.8805,  -3.3737, 

-4.3476, 

-6.1330, 

OMA 

770 

-3.9497,  -4.0682, 

-4.4133, 

-4.5403, 

OMA 

775 

-4.5184,  -4.6071, 

-4.4858, 

-4.3836, 

DMA 

76C 

-3.7646,  -3.7972, 

-3.6336, 

-3.8633, 

OMA 

765 

-0.3687,  -4.3062/ 

OMA 

790 

OMA 

769 

-7.3396,  -7,1385, 

•6.3047, 

-8.3350, 

«MA 

600 

-2.9555.  -2,3736, 

-3.3713, 

-4.1797, 

OMA 

805 

-3.0159,  -3.1187, 

-3.4677, 

-3.6117, 

OMA 

810 

-3.6153,  -3.6070, 

-3.6613, 

-3.4345, 

OMA 

815 

-3.8642.  -3.6866, 

-2.6995, 

-3.9291. 

OMA 

820 

-3.3435,  -3.3900/ 

MM 

835 

OMA 

830 

-4.1386.  -4.0441, 

-3.7452, 

-3.1713, 

OMA 

635 

-1.4984,  -1.0273, 

-1.7948, 

-3.4069, 

DMA 

640 

-1.5034.  -1.5747, 

-1.6536, 

-1.9156, 

OMA 

843 

1.8050,  -1.7053,  -1.8447,  -1.8088. 

OMA 

•SO 

-1.4544,  -1.4532, 

-1 .4763, 

-1.4894, 

OMA 

855 

-1.8354,  -1.6433/ 

OMA 

850 

OMA 

805 

-4.0313,  -3.9061, 

-3.5488, 

-3.8359, 

OMA 

870 

-0.8848,  -0.5156, 

-1.2001, 

-1.8993, 

OMA 

875 

-0.9323.  -0.9859, 

-1.3771, 

-1.3931, 

DMA 

•80 

-1.3588,  ‘-1.3448, 

-1.3974, 

-1 .3197, 

OMA 

885 

•0.8348,  -0.8343, 

-0.6503, 

-0.8870, 

DMA 

690 

-1.3314.  -1.2847/ 

OMA 

895 

OMA 

900 

-3.8843,  -3.7518, 

-3.3484, 

-3.3765, 

OMA 

905 

-0.4851.  -0.0283, 

-0.60B5, 

-1.3311, 

DMA 

910 

-0.3863,  -0.4033, 

-0.6817, 

-0.8120, 

OMA 

918 

•0.8163.  -0.8135, 

-0.8151. 

-0.7274, 

OMA 

920 

-0.2571,  -0.3583, 

-0.3646. 

-0.376*. 

OMA 

935 

-0.8036,  -0.6605/ 

OMA 

930 

DMA 

939 

-3.6194,  -3.5033, 

-3.6505, 

-1.5096, 

DMA 

940 

0.3125,  0.6827. 

0.3890, 

-0.4138, 

DMA 

949 

0.4690,  0.4489. 

0.3105, 

0.0870, 

HU 

950 

0,0567,  0,0633, 

0.0792. 

0,1597, 

OMA 

OSS 

0.56T7,  0,5695. 

0.5709. 

0.6639, 

DMA 

950 

0.3163.  0.3577/ 

OMA 

969 

MU 

970 

-0.5104.  -0,4313, 

-0.0980. 

0,4963, 

OMA 

976 

1.7043,  1.6943, 

1.6604, 

1.3630. 

MU 

•80 

151 
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LI 

Pm 

M 


1.4583, 

1.4633, 

1.4784, 

1.8481, 

1.8293, 

1.7005, 

1.6726, 

OUA 

985 

1.8570, 

1.8811, 

1.7408, 

1.7614, 

1.7781, 

1.6867, 

1.8983, 

DMA 

990 

1 .7381 i 

1.7783, 

1.8497, 

1.8987, 

1.9012, 

1.9136, 

1.9154, 

OMA 

995 

1.9104, 

1.8848, 

1.8578, 

1.8166, 

1.8043/ 

DMA 

1000 

DATA  F3/ 

DMA 

1005 

-0.4215, 

-0.4483, 

-0.4687, 

-0.4073, 

-0.3085, 

0.0696, « 

0.795a, 

OMA 

1010 

1.4548, 

1.3737, 

1.8860, 

3. 0995, 

a. 2816, 

a. 1301, 

1.6978, 

OMA 

1015 

1.9664, 

1.9399, 

1.9390, 

3. 2741, 

3. 2680, 

2.1606, 

a.uae, 

OMA 

1020 

9. 1004, 

3. 1074, 

a. 1*48, 
a. 2777, 

8.1447, 

a. 1615, 

2.1204, 

2.1504, 

OMA 

1025 

a. 1811, 

a.aais, 

3.3346, 

3.3268, 

a. 3387, 

2.3430, 

DMA 

1030 

a. 3435, 

3. 3339, 

3.3179, 

3.2891, 

2.2719/ 

DMA 

1035 

OATA  F3/ 

DMA 

1040 

-0.3341, 

-0.a834, 

-0.3033, 

-0.2717, 

-0,0633, 

0.3368, 

1.2184, 

DMA 

1045 

1.9791, 

i.7ai8, 

a. 1368, 

8. 5364, 

2. 8979, 

2.6050, 

2.3107, 

DMA 

1050 

a. 4693, 

a. 4531, 

a. 4300, 

2. 7168, 

3. 7144, 

2.6374, 

a. 5939, 

DMA 

1055 

a. 5855, 

a. 5871, 

a. 5971, 

a. 6015, 

2.8044, 

2.0010, 

2.6295, 

OMA 

1080 

a. 8533, 

3.8813, 

a. 7190, 

2. 7572, 

2.7892, 

a. 7705, 

2.7749, 

DMA 

1065 

a. 7799, 

a. 7803, 

a. 7767, 

3. 7637, 

3.7538/ 

OMA 

1070 

OATA  F4/ 

DMA 

1075 

0.1750, 

0.0418, 

-o.oao3, 

-0.0789, 

0.0501, 

0.9348, 

9. 0179, 

DMA 

1080 

a.79ai. 

a.4415, 

a. 9025, 

3.2434, 

3.3513, 

3.3148, 

3.0046, 

DMA 

1085 

3.a303, 

3.2194, 

s.aooi, 

3.3884, 

3.3859, 

3.3494, 

3.3241, 

OMA 

1090 

3.3315, 

3. 3333, 

3.3380, 

3.3279, 

3.3303, 

3.3364, 

3.3547, 

DMA 

1095 

3.3868, 

3.3776, 

3.3917, 

3.4141, 

3.4156, 

3.4348, 

3.4294, 

DMA 

1100 

3.4383. 

3.4458, 

3*4537, 

3.4872, 

3.4608/ 

OMA 

1105 

END 

OMA 

1110 
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•LOCK  DATA  PHSDTA 
BLOCK  OATA 

routine  to  store  table  TO  call  up  proper  phase  function 

.  AND  TO  AVERAGE  PHASE  FUNCTIONS 

COMMON/MNMPHS/  8NU8(27,26),PHSFNC(34,70) 

COMMON/NNMPHS/NUM1 (27) ,MUM2(27) ,mUM3(27) ,MUM4(27) ,MUMB(27) , 
1MUH6(27) ,MUM7(27 ) , HUMS (27) , MUMS (27) ,HUM10(27) ,MUM1 1 (27) ,MUM12(27) , 
2MUM13(27),MUM14(27) ,MUM15(27) ,MUM16(27) ,MUM17(27) ,MUM18(27) , 
3MUM19 ( 27 ) , MUM20 ( 27 ) ,MUM2 1 ( 27 ) . MUM22 ( 27 ) , MUM23( 27 ) , MUM24 ( 27 ) , 
4MUM25(27 ) .MUM26 ( 27 ) , PHSFt (34 ) , PHSF2 ( 34) , PHSF3( 34 ) , PHSF4( 34 ) , 
SPHSF5 ( 34 ) , PHSF61 34 ) , PHS  F7 ( 34 ) , PHSF8 ( 34 ) , PHSF9<  34) , 
6PHSF10(34),PHSF11(34).PHSF12(34),PHSF13(34),PHSF14(34),PHSF15(34) 
YPHSF16(34) , PHSF1 7(34) , PHSF18(34) ,PHSF19( 34) , PKSR20(34) ,PHSF21 (34) 
8PHSF22(34) ,PHSF23(34) ,PHSF24(34) ,PHSF25(34) ,PHSP26(34) ,PHSF27(34) 
9PHSF28(34),PHSF29(34),PHSF30(34),PHSF31(34),PHSF32(34),PHSF33(34) 
9PHSF34(34),PHSF35(34),PHSF36(34),PHSF37(34),PHSF38(34),PHSF39(34) 
1PHSF40(34) .PHSF41 (34) ,PHSF42(34) ,PHSF43(34) , PHSF44(34) tPHSF45(34) 
2PHSF46(34) ,PHSF47(34) ■ PHSF48(34) ,PHSF49(34) , PHSFS0(34) , PHSF51 (34) 
3PHSF52(34) ,PHSF53(34) ■ PHSF54(34) ,PHSFS5(34) , PHSF86(34) ,PHSF57(34) 
4PHSF58(34)  ,PHSF59(34)  ,PHSF60(34)  .PHSF81  (34)  ,PHSF62(34)  ,PHSF83(34) 
5PHSF64(34),PHSF65(34),PHSF66(34)tPHSF67(34),PHSF68(34),PHSF69(34) 
8PHSF70(34) 

DATA  MUM1/  3,  5,  4,  4,  4,  6,  8,22,21,22,26,26. 

C26.27.29,  1,34,34,34,34,33,33,36,36,38,36,23/ 

DATA  MUM2/  3,  S,  4,  4.  4,  6,  8,22,21,21,22,26, 

C26,27,29,  1,34,33,33,33,46,46,34,34,36,36,23/ 

OATA  MUM3/  3,  5.  5,  5,19,  6,  8,21,  7,21,22.  8, 

C26,  1,27,  1,46,46,46,29,29,46,34,34,34,36,23/ 

DATA  MUM4/56, 58, 62, S3, 62, 63, 63, 63. 60, 64, 64, 64, 

C21, 70, 65, 66, 6S, 65, 66, 66, 65, 27, 29, 29, 46, 33, 34/ 

DATA  MUN5/59, 11, 11. 11 ,20,20,20,28,28,16,16,16, 

C16, 37. 37. 37, 32, 36, 32, 32, 32, 36, 23, 23. 23. 38. 25/ 

DATA  MUM6/  9.69.11,13.13,26,26,26,27,29,46,28. 

C28, 29, 28. 28, 37, 37, 37, 37, 34, 36, 36, 36, 23, 33, 38/ 

DATA  MUM7/  9,  9,14,14.14,15,15,15.66,65,27,26. 

C29, 27, 29, 29, 29, 29, 29. 29, 46, 34, 36. 36, 36, 33, 23/ 

DATA  MUMS/57, 57, 69, 69. 69, 68, 68, 68. 61. 70, 60, 21, 

C  7,66,  1,  1.  1,  1,66,86,  1,29.46.46,33,34,38/ 

DATA  MUM9/  2,18.18,19.19,  6,22.23.23.22,32.22, 

C29. 39, 46, 29, 34, 34, 34, 34. 34, 34, 36, 36, 36, 23, 23/ 

DATA  MUM1Q/  2,  3,18,18,19,  6,22,22.31,22,32,22, 
037,27,29,27,33(33,48,46,46,33,34,34,36,36 , 23/ 

DATA  NUM11/  2.  3,18,18,19,  6.22,21.  7,22,22,22. 
027,27.27,27,48,29.29.29,29.46,33,34,34,36,36/ 

DATA  MUM12/58,5B ,83 ,63 ,62 ,62 ,63,83, 60,64 ,64 , 64, 

C21 ,60,  7,55,65,65,88,67,65,  7.27,27,29,46,33/ 

OATA  MUM1 3/1 0,59, 1 1.11,13,20,20,28.28,16,18,18, 

CIS, 37, 37, 37, 32, 36, 32, 32, 33, 36, 23, 23, 33, 38, 25/ 

DATA  MUK1 4/| 0,10, 14,14,13,13,26,38.27,99,29,28, 

C28, 29,3^,26 ,37, 37 ,37,37,33,33,36,36,33.23, 38/ 

OATA  MU'115/10,69, 14,14,14,15,15,  7,66,65,27.36, 

C29,  1,v;>, 29. 39, 29, 39(39. 46, 34, 38, 38, 36, 23, 23/ 

OATA  F-HIIB/47,57 ,69,69 ,69,68 , 8B ,68 ,61 ,70 , 60 . 21  , 

C  7,66,  1,  1.  1,  1.86,08,  1,29,46,46.33.34,30/ 

OATA  MUttl 7/39, 10 ,32,33 ,36,36,33,23, 23,38.38,30, 

C25 ,26,25,25,35,25.35,25,35,35,35,35,35,40, 39/ 

OATA  MUMl 6/29, 10, 32, 33, 32, 36, 23, 23. 33, 38, 38, 38, 


PHO 

100 

PHD 

106 

PHD 

110 

PHD 

115 

PHO 

120 

PHD 

125 

PHD 

130 

PHO 

133 

PHD 

140 

PHD 

146 

PHD 

ISO 

PHD 

155 

PHD 

160 

PHD 

165 

PHD 

170 

PHD 

175 

PHD 

180 

PHD 

185 

PHD 

190 

PHD 

195 

PHO 

200 

,PHD 

205 

PHD 

210 

PHD 

215 

PHD 

220 

PHD 

225 

PHO 

230 

PHO 
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PHD 

240 

PHD 

245 

PHD 

250 

PHO 

255 

PHD 

260 

PHD 

265 

PHD 

270 

PHD 

275 

PHD 

260 

PHD 

285 

PHO 

290 

PHD 

295 

PHD 

300 
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305 
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PHO 
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320 
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330 

PHD 

335 

PHD 

340 

PHO 

345 
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355 
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350 
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C38, 25, 25, 25, 85,25, 25, 29,35,35, 35,35,35, 40,39/ 
DATA  MUM19/29, 28, 37, 37, 32, 36, 36,23, 23,33, 23, 23, 
C38, 23, 25, 35,25, 25, 25, 25, 35, 35, 35, 35, 35, 40 ,40/ 
DATA  MUM20/1S,26,28,28,37,37,32,32,32,23,23,23. 
€23,38.38,38,38,25,25,28,28,35,35,38,35,35,40/ 
OATA  MUM21/30,20 ,37,37,24,23,38,25,25,35,35,35, 
C40 ,40,39,39,39,39,39,39,39,39,39,39,39,39, 39/ 
OATA  MUM22/  7,20,16,37,32,32,24.23,23,23,38,38, 
025,25,35,35,35,25,35,35,40,40,40,40,40,39,39/ 
DATA  MUM23/17.51 ,13,13,20,20,28,28,37,37,37,37, 
C32, 32, 24, 24, 23, 23, 38, 3B, 38, 38, 38, 38, 38, 25, 35/ 
DATA  MUM24/47 ,30,55,55,55,13,15,12,42,12,  1,28, 
044,52,44,44,45,45,45,45,24,23,38,38,38,25,35/ 
OATA  MUM2S/48,S3,31 ,31 ,31,41,41 ,41 ,49,17,17,17, 
058,50,43,43,87,81,42,54,42,12,12,12,12,  1,44/ 
DATA  MUM2B/59, 59, 11, 11 ,20.20,28,28,46,46,46,48, 
033,33,34,34,34,34,36,36,36,36,23,23,23,38,38/ 
DATA  PHSF1/ 

4.26047,  3.42600, 


4.81387, 


0  .00886, 

C  .00780, 

C  .00813, 

DATA  PHSF4/ 
14.11167, 
.73207, 
.30452, 
.07189, 
.01557, 


2.74953, 


.00765, 

.00609, 

.00790, 

». 39400, 
.64758, 
.29337, 
.04755, 
.01420, 


.00763, 

.00843, 

.00871, 

1 ,58300, 
.52827, 
.21070, 
.03263, 
.01388, 


.00758, 

.00668, 

.00948/ 

1.07677, 

.43680, 

.17523. 

.02388, 

.01387, 


PHD  388 
PHD  400 
PHD  405 
PHD  410 
PHD  415 
PHD  420 
PHD  425 
PHO  430 
PHD  435 
PHO  440 
PHD  445 
PHD  450 
PHO  485 
PHD  480 
PHD  465 
PHD  470 
PHO  475 
PHO  480 
2.21493,  PHO  488 


c 

1.78847, 

1.44S53, 

.94765, 

.62704, 

.43183,  PHD 

490 

c 

.28987, 

.20375, 

.14632, 

.10720, 

.05307,  PHD 

495 

c 

.02882, 

.01703, 

.01093, 

.00764, 

.00582,  PHO 

500 

c 

.00482, 

.00431, 

.00418, 

.00411, 

.00409,  PHD 

505 

c 

.00412, 

.00418, 

.00428, 

.00421, 

.00436, 

.00443,  PHO 

910 

c 

.00443, 

.00433, 

.00435/ 

PHD 

519 

OATA  PHSF2/ 

C  100.88000, 

4.36700, 

2.73687, 

3.10557, 

PHD 

1.66067,  PHO 

920 

529 

C 

1.36333, 

1.11900, 

.77513, 

.55317, 

.40393,  PHO 

930 

c 

.30047, 

.22690, 

.17367, 

.13437, 

.01265, 

.07407,  PHO 

539 

c 

.04350, 

.02714, 

.01795, 

.00956,  PHO 

940 

c 

,00780, 

.00683, 

.00656,  - 

.00639. 

.00633.  PHO 

549 

c 

.00636, 

.00649, 

.00669, 

.00663, 

.00671,  PHD 

990 

c 

.00628, 

.00582, 

,00606, 

.00646/ 

PHD 

959 

DATA 

C 

PNSF3/ 

75.07600, 

1.23720, 

3.77580, 

2.33100, 

1.83630, 

PHO 

1.49120,  PHO 

560 

965 

C 

1.03680, 

.74470, 

.54766. 

.41000,  PHO 

970 

C 

.31120, 

.23880, 

.18506, 

.14476, 

.06148,  PHD 

979 

C 

.04851, 

.03047, 

.02022, 

.01431, 

.01069,  PHO 

960 

.00782,  PHO  885 
.00681,  PHO  880 
PHD  589 
PHO  600 
.85839.  PHO  805 
,38568,  PHO  610 
.11108,  PHO  015 
.01859.  PHO  630 
,01434,  PHO  838 


C 

.01473, 

.01945. 

.01641, 

.01756, 

.01194,  PHO 

630 

C 

.01999, 

.03139, 

.02376, 

.03513/ 

PHO 

639 

OATA  PH3F9/ 

PHO 

640 

C 

31.33400, 

3.01380, 

1.63600, 

1,27360, 

1.06030,  PHO 

646 

C 

.94204, 

.83036, 

.65330, 

.51696, 

.40994,  PHO 

690 

C 

.33956, 

.39926. 

,20703, 

.16580, 

.09733.  PHO 

699 

C 

.05921, 

.03784, 

.03534, 

.01609, 

.01363,  PHD 

660 

C 

.01155, 

.01059, 

.01081, 

.01070, 

.01118,  PHO 

669 

C 

.01193, 

,0  003, 

.01447, 

.01610, 

.Ot73?<  PHO 

670 

0 

.01780, 

.01636. 

.03091, 

.03396/ 

PHO 

•79 

OAtA  PHSF6/ 

3,66717, 

PHO 

•69 

C 

13.63313, 

9.76057, 

1.73300. 

1.11367.  PHO 

m 

154 


c 

.89500, 

.71377, 

.50818, 

.39290, 

.31612,  PHD 
.09782,  PHD 

690 

c 

.25947, 

.21512, 

.17950, 

.15035, 

.02336, 

695 

c 

.06489, 

.04418, 

.03126, 

.01872,  PHD 

700 

c 

.01625, 

.01521 , 

.01510, 

.01520, 

.01550,  PHD 

705 

c 

.01600, 

.01670, 

.01758, 

.01860, 

,01958,  PHD 

710 

c 

,02003, 

.01962, 

.01969, 

.02072/ 

PHD 

715 

DATA  PHSF7/ 

PHD 

720 

C 

10.69213, 

7.32563, 

4.66850, 

3.15175, 

2.23700,  PHD 

725 

C 

1.65050, 

1.25550. 

.77671, 

.61168, 

.35194,  PHD 

730 

C 

.24998, 

.18219, 

.13585, 

.10291, 

.05530,  PHD 

735 

c 

.03232, 

.02036, 

.01381 , 

.01015, 

.00680, 

.00813,  PHD 

740 

c 

.0071 1 , 

,00672, 

.00671, 

.00696,  PHD 

745 

c 

.00723, 

.00753, 

.00783, 

.00813, 

. 00641 ,  PHD 

750 

c 

.00664, 

.00643, 

.00793, 

.00865/ 

PHD 

755 

OATA  PHSF8/ 

PHD 

760 

C 

10.29225, 

5.75700, 

3.34100, 

2.19450, 

1.56650,  PHD 

765 

C 

1.18950, 

.94123, 

.64033. 

.46530, 

.35098,  PHD 

770 

C 

.27068, 

.21203, 

.16803, 

.13445, 

.07989,  PHD 

775 

c 

.04975, 

.03251 , 

.02247, 

.01667, 

.01344,  PHO 

780 

c 

.01188, 

.01148, 

.01166, 

.01210, 

.01285,  PHD 

785 

c 

.01392, 

.01522, 

.01656, 

.01776, 

.02043/ 

.01897,  PHD 

790 

c 

.02003, 

.01932, 

.01776, 

PHD 

795 

OATA  PHSF9/ 

PHD 

800 

C 

232.30000, 

13.73667, 

3.92300, 

1.97167, 

1.29767.  PHD 

80S 

C 

.97050, 

.77753, 

.55393, 

.41563, 

.31763,  PHD 

810 

C 

.24957, 

.19523, 

.15503, 

.12260, 

.06875,  PHD 

815 

c 

.04015, 

.02414, 

.01485, 

.01040, 

.00803,  PHD 

820 

c 

.00674, 

.00569, 

.00549, 

.00650, 

.00615,  PHO 

825 

c 

.00775. 

.01205, 

.01620, 

.02141, 

.05439/ 

.02076,  PHD 

830 

c 

.02123, 

.02409. 

.03397, 

PHD 

835 

data  phsfio/ 

PHD 

840 

c 

266.85000, 

20.19500, 

5.34175, 

2.25050, 

1.24273,  PHD 

848 

c 

.81960, 

.60855, 

.40505, 

.30698, 

.24146,  PHD 
.06313,  PHD 

850 

c 

.19903, 

,16210, 

.13158, 

.10705, 

855 

c 

.03B07, 

.02275. 

.01373, 

.00983, 

.00704,  PHD 

860 

c 

.00512, 

.00400, 

.00412, 

.00401, 

.00456,  PHD 

865 

c 

.00580, 

.00954, 

.01947, 

,03101 , 
.08295/ 

.03784,  PHO 

870 

c 

.0401 B, 

.04524, 

.06312, 

PHO 

875 

OATA  PHSF11/ 

PHD 

880 

c 

15.36571, 

0.09614, 

3.15543, 

1.98500, 

1.39671,  PHD 

885 

c 

1.05749, 

.84297, 

.58904, 

.44120, 

.34216,  PHD 

880 

c 

.27140, 

.21837, 

.17689, 

. t4371 , 

.08723,  PHD 
.01339,  PHD 

895 

c 

.05498, 

.01087, 

,03568, 

.02444, 

.01753. 

900 

c 

.00966, 

.00983, 

.01019, 

.01094,  PHO 
.03204,  PHD 

905 

c 

.01843, 

.01473, 

,0187V, 

.02433, 

910 

c 

,03592, 

.037*8, 

.04492, 

.05004/ 

PHO 

915 

OATA  PH5F1 J/ 

PHO 

920 

C 

5.64100, 

2.57640, 

5.44440, 

4.90680. 

4.15690, 

S. 34160,  PHO 

925 

C 

1,93040, 

1,03104, 

.54703, 

.30330.  PHD 

930 

c 

.19025, 

.11914, 

.07816, 

.05557, 

.02729,  PHD 

935 

c 

.01547, 

.00980. 

.00697, 

.00542, 

.00457,  PHD 

940 

c 

.00413, 

.00392, 

.00387, 

.00385, 

.00385.  PHD 

945 

c 

,00305, 

.00400, 

,00385, 

,00388. 

.00391, 

.00401,  PHD 

950 

c 

.00368, 

.00352, 

.00365/ 

PHD 

955 

DATA  PM9F13/ 

PHD 

080 

C 

8.90311, 

6.05467, 

3,93056, 

3.63178, 

1.92878,  PHO 

•95 

c 

1.32733, 

1.00G96, 

.05342, 

.46637, 

.34883.  PHO 

970 

c 

.28052, 

.20709, 

,  1 0232 , 

.12811, 

.01338. 

.07347,  PHO 

979 

c 

.04425, 

.02794. 

.01807, 

.01033,  PHD 

MO 
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c 

.00874, 

.00818, 

.00837, 

.00894, 

.01001.  PHD 

988 

c 

.01171, 

.01423, 

.01759, 

.02129, 

.02494.  PHD 

990 

c 

.02767, 

.02690, 

.02358, 

.03550/ 

PHD 

998 

OATA  PHSF1 4/ 

PHD 

1000 

C 

41.20876, 

11.64363, 

5.00750, 

2.73850, 

1.74425,  PHD 

1005 

C 

1.23475, 

.93516, 

.60986, 

.43641, 

.32733,  PHD 

1010 

C 

.24819, 

,19145, 

.14831, 

.11555, 

.06356,  PHO 

1015 

c 

.03649, 

.02176, 

.01390, 

.00974, 

.00759,  PHD 

1030 

c 

.00667, 

.00843, 

.00671, 

.00741, 

.00906,  PHD 

1025 

c 

.01210, 

.01618, 

.01839, 

.01979, 

.02104,  PHD 

1030 

c 

.02356, 

.02652, 

.02694, 

.04004/ 

PHD 

1035 

OATA  PHSF1S/ 

PHO 

1040 

C 

7.98100, 

5.53369, 

3.81067, 

2.75011, 

3.05900,  PHD 

1045 

c 

1.58178, 

1.24011, 

.80424, 

.55144, 

.39021,  PHO 

1050 

c 

.28203, 

.20701 , 

.15369, 

.11570, 

.05985,  PHD 

1055 

c 

.03329, 

.01999, 

.01295, 

.00920, 

.00726,  PHO 

1050 

c 

.00645, 

.00646, 

.00683, 

.0074$, 

.00833,  PHD 

1065 

c 

.00942, 

.01036, 

.01112, 

.01187, 

.01290,  PHD 

>C?i) 

c 

.01451, 

.01415, 

.01176, 

.01646/ 

PHD 

1075 

OATA  PHSF16/ 

PHD 

1080 

C 

1.52473, 

1.44645, 

1.30800, 

1.16736, 

1.03718,  PHO 

1085 

C 

.92088, 

.81802, 

.64725, 

.51405, 

.40964,  PHD 

1090 

c 

.32742, 

.26255. 

.21129, 

.17075, 

.10236,  PHD 

1095 

c 

.06361, 

.04130, 

.02819, 

.02041, 

.01583,  PHO 

1100 

c 

.01330, 

.01222, 

.01213, 

.01235, 

.01288,  PHO 

1105 

c 

.01373, 

.01491 , 

.01635, 

.01784, 

.01906,  PHD 

1110 

c 

.02003, 

.02225, 

.02715, 

. 03082/ 

PHD 

1115 

OATA  PHSF17/ 

PHD 

1120 

C 

143.02500, 

55.03750, 

11.00250, 

3. 10675, 

1.29675,  PHD 

1125 

C 

.67675, 

.40423, 

.18580, 

.10562, 

.06884,  PHD 

1130 

C 

.04883, 

.03565, 

.02858, 

.02291, 

.01418,  PHD 

1135 

C 

.00942, 

.00664, 

.00497, 

.00397, 

.00337,  PHD 

1140 

C 

.00302, 

.00283, 

.00277, 

.00273, 

.00272,  PHO 

1145 

C 

.00275, 

.00283, 

.0029B, 

.00314, 

.00399/ 

.00324,  PHD 

1150 

c 

.00332, 

.00347, 

.00373, 

PHO 

1155 

OATA  PHSF18/ 

PHO 

1160 

C 

26.74167, 

3.70000, 

1./3800, 

1.24150, 

1.02157,  PHD 
■39937.  PHD 

1165 

C 

.88398, 

.78022. 

.62040, 

.49727, 

1170 

c 

.32113, 

.25863. 

.20880, 

.16910, 

.10153.  PHD 

1175 

c 

.06289, 

.04050, 

.02733, 

.01952, 

.01491,  PHD 

1180 

c 

.01225, 

.01083, 

.01046, 

.01025, 

.01017,  PHO 

1185 

c 

.01020, 

.01030, 

.01043, 

.01053, 

.01059,  PHD 

1190 

c 

.01061, 

.01071 , 

.01107, 

, 0 1 1 36/ 

PHD 

1195 

OATA  PNSF19/ 

PHO 

1200 

C 

16.70800. 

4.67840. 

2.10000, 

1.29420, 

.94984.  PHD 

1205 

C 

.76794, 

.65498, 

.51386, 

.41986, 

.34756.  PHD 

1210 

C 

.28896, 

.24060, 

.20054, 

.16730, 

.10712.  PHD 

1215 

C 

.06978, 

.04668. 

.03245, 

.02379. 

.01883,  PHD 

1220 

C 

.01572, 

.01429, 

.01397, 

.01384, 

.01369,  PHD 

1225 

c 

.01407, 

.01438, 

.01481 , 

.01529, 

.01572,  PHD 

1230 

c 

.01603. 

.01613, 

.01637, 

.01668/ 

PHO 

1235 

OATA  PHSF20/ 

PHD 

1240 

C 

3.35750, 

2.77033, 

2.30467, 

1.77208, 

1.43950,  PHD 

1245 

C 

1.10187. 

.98063, 

.69731. 

.51368, 

. 14785, 

.39864,  PHD 

1250 

C 

,29989, 

.23472, 

.18552, 

.09660.  PHO 

1255 

C 

.05339, 

.03443, 

.02340, 

.01589, 

.01308,  PHO 

1280 

c 

.01097, 

.01015, 

.01022, 

.01829, 

.01062, 

.01145,  PHD 
.02580,  PHO 

1285 

c 

.01389, 

.01512, 

.02228, 

1270 

c 

.02815, 

,03523, 

.02990, 

.03817/ 

PHD  1375 

DATA  PHSFS1/ 

PHD 

1260 

C 

13.35345, 

7.86691, 

4.51565, 

2.99018, 

1.99645,  PHD 

1285 

C 

1.45864, 

1.10655, 

.69522, 

.47093, 

.33483,  PHD 

1290 

C 

.24620, 

.18557, 

.14266, 

.11148, 

.06369,  PHD 

1295 

C 

.03890, 

.02523, 

.01742, 

.01294, 

.01044,  PHD 

1300 

C 

.00921, 

.00861 , 

.00666, 

.00906, 

.00940,  PHD 

1305 

c 

.00985, 

.01039, 

.01098, 

.01163. 

.01232,  PHD 

1310 

c 

.01277, 

.01220, 

.01131 , 

.01247/ 

PHD 

1316 

DATA 

PHSF22/ 

PHD 

1320 

C 

9.49578, 

6.01133, 

3.71372, 

2.49106, 

1.77633,  PHD 

1325 

C 

1.32572, 

1.02483, 

.66094, 

.45784, 

.33285,  PHD 

1330 

C 

.25044, 

.19334, 

.15224, 

.12179, 

.07358,  PHO 

1335 

C 

.04717, 

,03185, 

.02271 , 

.01730, 

.01421,  PHO 

1340 

c 

.01264, 

.01208, 

.01207, 

.01220, 

.01245,  PHD 

1345 

c 

.01280, 

.01321 , 

.01365, 

.01405, 

.01436,  PHD 

1360 

c 

.01447, 

.01422, 

.01407, 

.01456/ 

PHD 

1355 

DATA  PH5F23/ 

PHD 

1360 

C 

.45555, 

.45332 , 

.44686, 

.43683, 

.42405,  PHD 

1365 

C 

.40929, 

.39319. 

,35887, 

.32386, 

.28985,  PHD 

1370 

c 

.25771 , 

.22804, 

.20101, 

.17671, 

.12722,  PHD 

1375 

c 

.09162, 

.06691 , 

.05037, 

.03979, 

.03345,  PHD 

1360 

c 

.03009, 

.02876, 

.02860, 

.02371, 

.02902,  PHD 

1385 

c 

.02946, 

.03000, 

.03059, 

.03120, 

.03179,  PHO 

1390 

c 

.03232, 

.03276, 

.03306, 

.03315/ 

PHO 

1395 

DATA  PHSF24/ 

PHD 

1400 

C 

.51072, 

.50922, 

.50478, 

.49744, 

.48752,  PHO 

1405 

C 

.47514, 

.46072, 

.42698, 

.38890, 

.34888,  PHD 

1410 

C 

.30902, 

.27072, 

.23504, 

.20254, 

.13652.  PHD 

1415 

C 

.09070, 

.06070, 

.04186, 

.03042, 

.02372,  PHD 

1420 

c 

.02000, 

.01816, 

.01773, 

.01763, 

.01753,  PHD 

1425 

c 

.01767, 

.01792, 

.01826, 

.01866, 

.01907,  PHO 

1430 

c 

.01948, 

.01984, 

.02009, 

.02019/ 

PHD 

1435 

OATA  PHSF25/ 

PHO 

1440 

C 

.21327, 

.21298, 

.21208, 

.21060, 

.20856,  PHD 

1445 

C 

,20606, 

.20305, 

.i9saa. 

.18741, 

.17798,  PHD 

1450 

C 

.16793, 

.15754, 

.14702, 

.13689, 

.11191,  PHD 

1455 

c 

.09060, 

.07368, 

.08147, 

.05361, 

.05020,  PHD 

1460 

c 

.04990, 

.05307, 

.05360, 

. 0558 t , 

.05801,  PHD 

1465 

c 

.08028, 

.06253, 

.06468, 

.06664, 

.06834,  PHD 

1470 

c 

.06973, 

PHSF26/ 

.07077, 

.07140, 

.07161/ 

PHD 

1475 

DATA 

PHD 

1460 

C 

4.10720, 

3.38127, 

2.61113, 

2.06147, 

1.66320,  PHD 

14e5 

C 

1.36400, 

1.13140, 

.79726, 

.57362, 

.41947,  PHD 

1490 

C 

.31103, 

.23368, 

.17768. 

.13839, 

.07413,  PHD 

1495 

C 

.04286, 

.00637, 

.03847. 

.01753, 

.01255. 

.00978,  PHD 

1500 

c 

.00791 , 

.00900, 

.00831, 

.00888,  PHD 

1505 

c 

.00974, 

.01087. 

.01219, 

r- 

w  XO 
P5  n 

o  o 

.01446,  PHD 

1510 

c 

,01468, 

.0«320, 

.01237. 

PHD 

ISIS 

DATA 

PHSF27/ 

PHD 

1520 

C 

4.37885, 

3.76265, 

2.97686. 

2.33720. 

1.85900.  PHD 

1525 

C 

1.49015, 

1.22035, 

.63140, 

.59200, 

.41624.  PHD 

1530 

C 

.30308, 

.22426, 

,16839. 

.12816, 

.06844,  PHD 

1535 

C 

.03932, 

.02424, 

.01607, 

.01 161, 

,00894,  PHD 

1540 

C 

.00753, 

.00664, 

.00669, 

.00661, 

.00681,  PHD 

1545 

C 

.00668, 

.00679. 

,00602, 

.00706. 

.00718,  PHD 

1550 

c 

.00718, 

.00705, 

.00703, 

.00721/ 

PHD 

1555 

OATA  PMSF2B/ 

PHD 

tseo 

C 

1.99262, 

1 .84585, 

1.62814, 

1.42583. 

1.24733,  PHD 

1865 

C 

1 ,09157, 

.93572, 

.73435, 

.56667, 

.43699,  PHO 

1570 

c 

•33874, 

.26371, 

.20635, 

.16235, 

.09181,  PHD  1875 

c 

.05440, 

.03397, 

.02253, 

.01601 , 

.01230,  PHD  1580 

c 

.01031 , 

.00948. 

,00938, 

.00951, 

.00965,  PHD  1585 

c 

.01043, 

.01123, 

.01222, 

.01328, 

.01405.  PHD  1590 

c 

.01405, 

.01340, 

.01391, 

.01521/ 

PHD  1595 

DATA 

PHSF29/ 

PHD  1600 

C 

a. 72707, 

2.52017, 

2.15725, 

1.81463, 

1.52555,  PHO  1605 

C 

1.38665, 

1.08932, 

.78963, 

.58023, 

.43161.  PHD  1610 

C 

.32473, 

.24695, 

.18977, 

.14727, 

.08150,  PHD  1615 

C 

.04783, 

.02980, 

.01981 . 

.01414, 

.01091,  PHO  1620 

C 

.00911, 

.00819, 

.00796, 

.00784, 

.00781,  PHD  1625 

C 

.00787, 

.00798, 

.00812, 

.00825, 

.00831,  PHD  1630 

C 

.00830, 

.00829, 

.00847, 

.00868/ 

PHD  1635 

DATA 

PHSF30/ 

PHD  1640 

C  183.60000, 

32.48000, 

3.18400. 

1.30100, 

.85020,  PHD  1645 

C 

.63540, 

.54470, 

.41140, 

.33110, 

.26080.  PHD  1650 

C 

.20850, 

.16570, 

.12700, 

.09546. 

,04755,  PHD  1655 

c 

.02460, 

.01160, 

.00650, 

.00370, 

.00264,  PHO  1660 

c 

.00234, 

.00355, 

.00326, 

.00308, 

.00526,  PHD  1665 

c 

.01403, 

.02285, 

.01565, 

.01398, 

,01362,  PHD  1670 

c 

.01240, 

.01544, 

.02607, 

.04655/ 

PHD  1675 

DATA  PHSF31/ 

PHD  1660 

C  1865. 50000, 

9.96867, 

1.73233, 

.92547, 

.70240,  PHD  1685 

C 

.59477, 

.52513, 

.42173, 

.33793, 

.26700,  PHD  1690 

C 

.20973, 

.16157, 

.11973, 

.09043, 

.04400,  PHD  1695 

C 

.01947, 

.00743, 

.00346, 

.00177, 

.00138,  PHO  1700 

C 

.00166, 

.00254, 

.00438, 

.00358, 

.00653,  PHD  1705 

c 

.02986, 

.01362, 

.01200, 

.00992. 

.00867,  PHD  1710 

c 

.00765, 

.00818, 

.00986, 

.05756/ 

PHD  1715 

OAT A  PHSF32/ 

PHO  1720 

C 

.79503, 

.78714, 

.76605. 

.73601 , 

.70017,  PHD  1725 

C 

.66092, 

.61994, 

.53736, 

.45896, 

.38796,  PHD  1730 

C 

.32563, 

.27208, 

.22676, 

.18879, 

.11979.  PHD  1735 

c 

.07727, 

.05125, 

.03541 , 

.02586, 

.02025,  PHD  1740 

c 

.01717, 

.01576, 

.01552, 

.01551, 

,01571,  PHD  1745 

c 

.01607, 

.01656, 

.01713, 

.01764, 

.01814,  PHD  1750 

c 

.01872, 

.01965. 

.02093, 

.02164/ 

PHD  1 758 

DATA 

PHSF33/ 

PHD  1760 

C 

1.56125, 

1.49306, 

1.34900, 

1.19444, 

1.05048,  PHD  1765 

C 

.92302, 

.81176, 

.63177, 

.49621, 

.39304,  PHO  1770 

C 

.31378, 

.25238. 

.20435, 

.16659, 

.10271.  PHO  1775 

C 

•06594, 

.04424, 

.03123, 

.02338. 

.01868,  PHD  1780 

c 

.01692. 

.01439, 

.01392, 

.01360, 

.01339,  PHD  1785 

C 

.01325, 

,01315, 

.01310. 

.01308, 

,01314,  PHO  1790 

c 

.01330, 

,01355. 

.01361 , 

.01392/ 

PHD  1795 

DATA 

PHSF34/ 

PHD  1800 

C 

1.22457, 

1.18085, 

1.08010, 

.98059, 

.87944,  PHD  1803 

C 

.78708, 

.70433. 

.50565. 

.45677, 

.37107,  PHO  1810 

C 

.30321, 

.24916, 

,20585, 

.17099, 

.11000.  PHD  1818 

C 

.07323, 

.05066, 

,03666, 

.02794, 

.02253,  PHD  1820 

C 

.01924. 

.01727, 

.01663, 

.01614, 

.01577,  PHD  1825 

c 

,01550, 

.01532. 

.01532. 

.01523, 

.01638,  PHD  1830 

c 

.01502, 

.01896. 

,01827. 

.01640/ 

PHO  1835 

DATA  PNSP33/ 

PHD  1840 

C 

.16944, 

.15931, 

.15693. 

.18825, 

.15734.  PHD  1845 

C 

.13620, 

.15479, 

.18131 , 

. 1*70! , 

,14199,  PHD  I8R0 

C 

.13038, 

.13030, 

.12309. 

.11727, 

.10085.  PHD  1855 

C 

.06527. 

.07250, 

.00322. 

.05702, 

,05611.  PHD  I860 

c 

.05792, 

.06222, 

,08505. 

.08017. 

.07146.  PUD  1886 

c 

.07479, 

.07805, 

.08112, 

.08390, 

.08631,  PHD  1870 

c 

.08826, 

.08970, 

,09058, 

.09088/ 

PHD  1875 

DATA  PHSF36/  * 

PHD  I860 

C 

•72999, 

.72086, 

.69632, 

.66227, 

.62369,  PHD  1865 

C 

.58366, 

.54390, 

.46850, 

.40091, 

.34178,  PHD  1890 
.12047,  PHD  1895 

C 

.29081 , 

.24724, 

.21025, 

.  1 7893 , 

C 

.08253, 

.05810, 

.04253, 

.03279, 

.02686,  PHO  1900 

C 

.02352, 

.02183, 

.02142, 

.02122, 

.02118,  PHD  1905 

C 

.02127, 

.02146, 

.02171 , 

.02202, 

.02367/ 

.02235,  PHO  1910 

C 

.02273, 

.02314, 

.02351 , 

PHO  1915 

DATA  PHSF37/ 

PHO  1920 

C 

1.15457, 

1.13481 . 

1.08837, 

1.02208, 

.95035,  PHO  1925 

C 

.87581 , 

.80158, 

.66139, 

.53812. 

.43402,  PHD  1930 

c 

.34834, 

.27905, 

.22360, 

.17960, 

.10538,  PHD  1935 

c 

.06398, 

.04056, 

.02712, 

.01935, 

.01490,  PHD  1940 

c 

.01250, 

.01143, 

.01126, 

.01130, 

.01153,  PHD  1945 

c 

.01191 , 

.01242. 

.01301 , 

.01357, 

.01399,  PHD  1950 

c 

.01422, 

.01450, 

.01528, 

.01585/ 

PHD  1955 

DATA  PKSF38/ 

PHD  1960 

C 

.31056, 

.30962, 

.30766, 

.30415, 

.29944,  PHD  1965 

c 

.29365, 

.28698, 

.27149, 

.25411, 

.23575,  PHD  1970 

c 

.21708, 

.19665, 

.18081 . 

,16385, 

.12823,  PHO  1975 

c 

.09621 , 

.07365, 

.05766, 

.04714, 

.04092,  PHD  1980 

c 

.03792, 

.03722, 

.03746, 

.03804, 

.03891.  PHO  1965 

c 

.03972, 

.04071 , 

.04172, 

.04270, 

.04358,  PHD  1990 

c 

.04433, 

.04490. 

.04526. 

.04539/ 

PHO  1995 

DATA  PHSF39/ 

PHD  2000 

C 

.12377, 

.12369, 

.12346, 

.12308, 

. 122S4 ,  PHD  2005 

C 

.12185, 

.12102, 

.11893, 

.11832, 

.11324,  PHO  2010 

C 

.10974, 

.10592, 

.10161 , 

.09752, 

,08650,  PHO  2018 

C 

.07613, 

.06762, 

.06192, 

.05964, 

.06097,  PHO  2020 

C 

.06565, 

.07304, 

,07747, 

.08219, 

.OB70S,  PHD  2025 

C 

.09196, 

.09670, 

.10114, 

.10516, 

.10862.  PHO  2030 

C 

.11144, 

.11349, 

.11477. 

.11519/ 

PHD  2035 

DATA  PHSF40/ 

PHO  2040 

C 

.13400, 

.13391 , 

.13367, 

.13321 , 

,13259,  PHD  2045 

C 

.13180, 

.13085, 

,13642, 

.12341, 

.12165,  PHD  2050 

C 

.11785, 

.11344, 

,10872, 

! 10383, 

.09125,  PHD  2055 

C 

.07940. 

.06955, 

.06287, 

.05932, 

.05961,  PHO  2000 

C 

.06323, 

.06951 , 

.07336. 

.07751. 

.08181,  PHD  2065 

C 

.08613. 

.09032, 

.09428, 

•097B2, 

.10091,  PHO  2079 

C 

. 10339, 

.10522, 

.10634, 

.10673/ 

PHD  2075 

DATA  PHSF41/ 

PHD  2060 

C 

227.93333, 

32.03000, 

4.13187, 

1.54367, 

.95123,  PHO  2085 

C 

.71613, 

.59840, 

,43330, 

.33043, 

.25093.  PHD  2090 

c 

.18920, 

.14303, 

.10800, 

.08045. 

.03915.  PHD  2095 

c 

.01854, 

.00888. 

.00431, 

,00339, 

.00166.  PHD  2t00 

c 

.00167, 

.00266. 

.00434, 

.00724, 

.01132,  PHO  2105 

c 

.01476, 

.00903, 

.00535, 

.00765. 

.02951/ 

.00711,  PHD  2110 

c 

.00717, 

.00603, 

.01255, 

PHD  2115 

DATA  PMSF42/ 

PHD  2120 

C 

10.12187. 

9.39467, 

7.61833, 

5.69200. 

3.67533.  PHD  2125 

C 

3.62733, 

1.78200. 

.89247, 

.43520, 

.23963.  PHO  2130 

C 

.14187, 

.08952. 

.05950. 

.04115, 

.0165*.  PHO  2135 

c 

.00958, 

.00552. 

.00354, 

.00351. 

.00193,  PHO  2140 

c 

.00163. 

.00145, 

.00139, 

.00134. 

.00129,  PHD  2145 

c 

.00125, 

.00132, 

.00130. 

.00120, 

.00120.  PHO  2150 

c 

.00120, 

.00115, 

,00106, 

.00106/ 

PHD  2163 

am  p«SM3/  wo  3i«o 


c 

23.70500, 

19.31000, 

19.14500, 

6.16400, 

2.96850,  PHD  2165 

fS 

<* 

1 .51300, 

.'-IS, 

.39850, 

.24526, 

.17225,  PHD  2170 

c 

.12825, 

.0  '9, 

.07598, 

.05932, 

.03272,  PHO  2175 

c 

.01871 , 

.01*  ', 

.00710, 

.00485, 

.00363,  PHD  2180 

c 

.00303, 

.0028  , 

.00290, 

.00302, 

.00318,  PHD  2185 

c 

.00334, 

.00345, 

.00349, 

.00354, 

.00388,  PHD  2190 

c 

.00510, 

.00600. 

.00344, 

. 00472/ 

PHO  2195 

DATA  PHSF44/ 

PHD  2200 

C 

1.13310, 

1.12586, 

1.10518, 

1.07182, 

1.02708,  PHD  2205 

C 

.97348, 

.91266, 

.77952, 

.64406, 

.51826,  PHD  2210 

c 

.40884, 

.31800, 

.24506, 

.18784, 

.09626,  PHD  2215 

c 

.05080, 

.02813, 

.01701  , 

.01126, 

.00818,  PHD  2220 

c 

.00651 , 

.00563, 

.00539, 

.00526, 

.00522,  PHD  2225 

c 

.00525, 

.00536, 

.00551 , 

.00571, 

•00595.  PHD  2230 

c 

.00624, 

.00656, 

.00681 , 

.00692/ 

PHD  2235 

DATA  PHSF45/ 

PHD  2240 

C 

.61443, 

.61273, 

.60783, 

.59967. 

.58847,  PHO  2245 

c 

.57447, 

.55783, 

.51803, 

.47153, 

.42127,  PHD  2250 

c 

.36970, 

.31913, 

.27140, 

.22780, 

.14030,  PHD  2255 

c 

.08293, 

.04868, 

.02942, 

.01892, 

.01327,  PHD  2260 

c 

.01027, 

.00875, 

.00834, 

.00811, 

.00800.  PHD  2265 

c 

.00801  . 

.00810, 

.00824, 

.00842, 

.00881.  PHD  2270 

c 

.00879, 

,00893, 

.00903, 

.00906/ 

PHD  2275 

DATA  PHSF48/ 

PHD  2280 

c 

2.06615, 

1.93640, 

1.69345, 

1.45610, 

1.24945,  PHD  2285 

c 

1.07421 , 

.92677, 

.69739, 

.53175, 

.41021,  PHD  2290 

c 

.31969, 

.25144, 

,19943. 

.15944, 

.09421 ,  PHO  2295 

c 

.05837, 

.03604, 

,02624, 

.01831, 

.01523.  PHD  2300 

c 

.01288. 

.01180, 

.01123, 

.01099, 

.01084,  PHD  2305 

c 

.01077, 

.01073, 

.01072, 

.01070, 

.01068.  PHD  2310 

c 

.01069, 

.01078. 

.01095, 

.01105/ 

PHD  2313 

data  PHSF47/ 

PHO  2320 

C 

1988.10000, 

18.32500. 

2.35900, 

1,00950, 

.67300,  PHD  2325 

C 

.53970, 

,4S4tS, 

.37245, 

.30310, 

.24865,  PHD  2330 

C 

.20715, 

.15820. 

.13160, 

.10710, 

.05669,  PHO  2335 

C 

.02778, 

.01325, 

.00679, 

.00344, 

.00306.  PHD  2340 

C 

.00420, 

.00189, 

.00154, 

.00137, 

.00145,  PHD  2345 

C 

.00265, 

.01227. 

,03321, 

.02025, 

.01971 ,  PHD  2350 

C 

.01869, 

.09153, 

.03)66, 

.09379/ 

PHO  2355 

DATA  PHSF48/ 

9.83400. 

PHD  2360 

C 

18500. 00000, 

.85070. 

.58200. 

.49050.  PHD  2385 

C 

.44240, 

.40380, 

.35560. 

.31400, 

.25730.  PHD  2370 

C 

.19810, 

,17010. 

.12770. 

. 10750. 

.03190,  PHO  2373 

C 

.03854, 

.01105, 

.00385, 

.00203, 

.00200.  PHD  2390 
.00113.  PHO  2383 

C 

.00370, 

.00118. 

.00112. 

.00(12, 

c 

.00113, 

.00549, 

.02803. 

.02019, 

.01781.  PHO  2390 

c 

.01439. 

.01306, 

.01407, 

. 10720/ 

PHD  2393 

DATA  PMSF49/ 

PHD  3400 

C 

180.90000, 

80.01000. 

8.86500, 

9.26830, 

.98970,  PHO  2403 

C 

,55520, 

.36100, 

.19580, 

.12640, 

.08833,  PHO  3410 

C 

.06363 , 

.04893. 

.03478, 

.03599. 

.01364.  PHO  341$ 

C 

,00642, 

.00348, 

,0020#, 

.00143, 

.00130.  PHD  3490 

C 

.00134, 

,00<31 , 

,00123, 

.00108, 

.00097,  PHO  3433 

c 

.00992. 

.00090. 

.00089, 

.00081, 

.00096.  PHO  3430 

c 

.oeioT, 

. 00)38, 

.00251, 

>00349/ 

PHO  3433 

DATA  PKSF90/ 

PHO  9440 

C 

44,01000, 

33.47000. 

18.38090. 

•,94800, 

3.88890,  PHO  9443 

C 

1.34800, 

.88039, 

.37830, 

.14870, 

.08816,  PHO  9430 
.01097.  PHO  9433 

c 

,05780, 

.03*77. 

.02850, 

.09111, 

160 


c 

.00630, 

.00387, 

.00365, 

.00198, 

.001*1.  PHD  24*0 

c 

.00141, 

.00139, 

.00125. 

•00132, 

.00120,  PHD  34*5 

c 

.00119, 

.00116, 

,00117. 

.00117, 

.00117,  PHD  2470 

c 

.001(8, 

.00118, 

.00113, 

.00113/ 

PHD  3475 

DATA  PHSF51/ 

C  45. 72000, 

33.88000, 

8.45200, 

3.68600, 

PHD  3480 
1.89409,  PHD  2489 

C 

1.11400, 

.73990, 

.39640, 

.26320, 

■19430,  PHD  2490 

C 

.15350, 

.12410, 

.10330, 

.08533, 

.05455,  PHD  2495 

c 

.03546, 

.02333, 

.01580, 

.01103, 

.00801,  PHD  3500 

c 

.00615, 

.00530, 

.00517, 

•00508. 

•00547,  PHD  3505 

c 

.00614, 

.00783, 

.01036, 

.01534, 

.03235,  PMO  2510 

c 

.03692, 

.03903. 

.03071 , 

.03330/ 

PHO  3315 

DATA 

C 

PHSF52/ 

1.35600, 

1.34900, 

1.33400, 

1.36300, 

PHD  2530 
1.33900,  PHO  3535 

C 

1.16300, 

1.08700. 

,91840, 

.74460. 

.38190,  PHO  2530 

C 

.44060, 

.32530, 

.33580, 

.16900, 

.07319,  PHD  2535 
.004*4,  PHO  2540 

C 

■03392, 

.01768, 

.01037, 

.00676, 

C 

.00377, 

.00317. 

.00398, 

.00384, 

.00274,  PHa3S43 
.003*3.  PHO  2550 

c 

.00269, 

•  00267  ■ 

.00268, 

.00374, 

.00317/ 

c 

.00294, 

.00308, 

.00314, 

PHO  3555 

OATA  PHSF53/ 

C  8333.00000, 

3.82700, 

.95120. 

.65890. 

PHO  2560 
.53840,  PHD  2585 

C 

.49710, 

.82530. 

.38980, 

.13360, 

.33700, 

.35360.  PHO  3570 

C 

.21110, 

.16430, 

.09309. 

.04939,  PMO  3575 

c 

.01954, 

.00754, 

.00272, 

.00161, 

.00134,  PHO  2580 

c 

.00188, 

.00334, 

.30383, 

.00134, 

.00127.  PHO  3585 

c 

.01906, 

.01831 , 

.01420, 

.01077, 

.00904,  PHO  3590 

c 

.00782, 

.00667, 

.  00690 , 

.04338/ 

PHO  3595 

DATA  PHSF34/ 

C  13.90000, 

13.72000. 

9.87700, 

6.74400, 

PHO  2600 
4.34600,  PHO  3609 

C 

3.58600, 

1.56500, 

.66190, 

,33560. 

.18150,  PHO  3610 

C 

.10950, 

.06977, 

.0*630, 

.03174, 

.01380,  PHO  3615 

c 

.00662, 

.00376, 

.00338, 

.00153, 

.00111.  PHO  3620 

c 

.00086, 

.00073. 

.00368, 

.00064, 

.00061,  PHO  3635 

c 

.00056, 

.000  57, 
.00054, 

.00056, 

.00050, 

.00055, 

.00055.  PHO  2630 

c 

.00058, 

.00050/ 

PHO  3635 

OATA 

C 

PHSFS5/ 

36.42000, 

33.44333. 

8.52800. 

3.11067. 

PHO  3640 

1 .4g100.  PHO  3645 

e 

.51783, 

.87607. 

.46263, 

.34257, 

.26417,  PHO  3650 

c 

.27. 57, 

.15540. 

.12417. 

.09463, 

,05233.  PHO  3055 

c 

.r.m, 

.01639, 

.00950. 

.00561, 

.00473,  PHO  2660 

c 

.0U38. 

.00438. 

.00534, 

.00777. 

.01141,  PHO  3685 

c 

.OtMS. 

.01058, 

,01680. 

.01*07. 

.01*96.  PHO  3670 

c 

.01907. 

.03035, 

.03881, 

.03315/ 

PHO  3875 

DATA 

C  • 

9HSFS6,' 

*3.49000, 

31.63000. 

13.30090. 

4.18500. 

PMO  3600 

1 .7J400.  PHt)  3685 

c 

.81650, 

.99900. 

.34070, 

.33500. 

.17450.  PHO  3*80 

c 

.13490, 

.10490. 

.08291, 

.08539. 

.03717.  PHO  2*85 

c 

.02135. 

.01292. 

.00763. 

.00490. 

.00548,  PHO  3700 

c 

.00383. 

.00379, 

.00305. 

.003*6, 

.004*4.  PHO  3709 

c 

.00584. 

,00670, 

.00662. 

.00610, 

.00*81.  PMO  3710 

c 

.00040, 

.01245, 

.01103, 

.01440/ 

PHO  37(5 

OATA 

C  1*98.00000. 

IS. 47000. 

3.11967. 

1.46900. 

PHO  3730 
.87*83.  PHO  3735 

c 

.76303. 

.835'7, 

.48953, 

.38370, 

.28193.  PHO  2730 

c 

.33163, 

.17397 

.13357. 

,10470. 

.05409,  PHO  3735 

c 

•03783, 

,00794, 

.00479, 

,00390,  PHO  3740 

c 

.06409, 

.00407, 

.00363. 

.00324. 

.004.64.  PHO  3748 

c 

.01000. 

.01636, 

,0l«7. 

,01*98. 

.01547.  PHO  3»M 
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c 

.01597, 

.01879, 

.02321, 

.08917/ 

PHD  3755 

OAT*  PN5FSS/ 

PHD  2760 

C 

525.35000, 

8. 54850, 

3.39200, 

2.40225, 

1.79275,  PHD  2765 

c 

1 .38725, 

1 .10400, 

.74203, 

.52213, 

.37803.  PHD  2770 

c 

.27970, 

.20945, 

.15915, 

.12258, 

.08615,  PHD  2775 

c 

.03793, 

.02289, 

.01510, 

.01074, 

.00837,  PHD  2780 

c 

.00717, 

.00653, 

.00681, 

.00899, 

.00781.  PHD  2785 

c 

.00922, 

.01 127, 

.01384, 

.01588, 

.01743.  PHO  2790 

c 

.01839, 

.01583, 

.01491, 

.02015/ 

PHD  2795 

DATA  PH5759/ 

PHD  2800 

C 

58.57000, 

10.86983, 

4.30450, 

2.32817, 

1.48817,  PHD  2805 

C 

1 .05609, 

.80615, 

.53590, 

.39175, 

.30123,  PHO  2810 

C 

.23833, 

.19167, 

.15526, 

.12853, 

.07717.  PHD  2815 

C 

.04870, 

.03126, 

.02128, 

.01493. 

.01091 ,  PHD  2820 

c 

.00856, 

.00765 

.00767, 

.00787, 

.00840.  PHD  2825 

c 

.00973, 

.01199. 

.01623, 

.02446, 

.03802,  PHO  2830 

c 

.04421, 

.04801, 

.05991 . 

.06067/ 

PHD  2835 

DATA  PHSF60/ 

PHO  2840 

C 

37.27000, 

14.69200, 

6.78420. 

3.81Q00, 

2.39800,  PHD  2845 

C 

1 .62640, 

1.16200, 

.66076. 

.41350, 

.27594.  PHO  2850 

C 

.19292, 

.13976, 

.10406, 

.07936, 

.04328,  PHD  2B5S 

2 

.02569, 

.01635, 

.01116, 

.00822, 

.00657,  PHO  2850 

C 

.00569, 

.00527, 

.00516, 

.00510, 

.00509,  PHO  2865 

C 

.00511, 

.00519, 

.00528, 

.00537, 

.00537,  PHD  2870 

c 

.00527, 

.00528, 

.00538, 

.00549/ 

PHD  28Y5 

DATA  PHSFfil/ 

PHO  2880 

C 

24.90333, 

14.28000. 

6.35167, 

5-06833. 

3.14833.  PHD  2865 

C 

2.03700, 

1.38367, 

.72373. 

.42163, 

.26167.  PHD  2890 

c 

.16947, 

.11343. 

.07807, 

.05503. 

.02512.  PHD  2895 

c 

.01283, 

.00726, 

.00455, 

.00317, 

.00247,  PHO  2900 

c 

.00214, 

.00196, 

.00187, 

.00177. 

.00160.  PHO  2905 

c 

.00159, 

.00153, 

.00150, 

.00151 , 

.00161.  PHD  2910 

c 

.00185, 

.00209, 

.00168. 

.00199/ 

PHD  2915 

data  PMSPea/ 

PHD  2920 

c 

101.15288, 

5.39637, 

a. 28643, 

1.62671, 

1.32787.  PHD  2535 

c 

1.13034, 

.97648, 

.73870, 

.58023, 

.42829,  PHO  2930 

c 

.32319, 

.24639. 

.18874. 

.14550. 

, 07827 ,  PHO  2035 

c 

.04429, 

,02352. 

.01699, 

.01182, 

.0090*.  (HO  2940 

c 

■00783, 

.00715, 

.00718. 

.0374*. 

.00797,  PHO  2945 

c 

.00901, 

.01007, 

.01036. 

.0*076, 

.0**29,  PHO  2950 

c 

.01»T0, 

.01204, 

.01243. 

.0)444/ 

»«0  295S 

DATA  PHS763/ 

PHO  2980 

C 

48.02300. 

10,67820, 

3.88180, 

2.14360. 

1.43080.  PHO  3985 

C 

1.06302, 

,85178, 

.80524, 

,45450. 

.34880.  *MO  2970 

C 

.26996. 

.21070. 

.18528. 

.13041. 

.07415.  PMC  3978 

C 

•04310, 

-02714, 

.017*4. 

.01371. 

.00**1.  pho  am 

C 

.00877, 

.00971, 

.00917. 

.00983. 

.01018.  PHO  3915 

c 

.01174, 

.0«200, 

,01165, 

.01302. 

.0*250,  PHO  3910 

c 

.0I3TT, 

,01*88, 

.01523. 

.0110*/ 

P«0  2998 

DATA  PHSfOA/ 

PHO  3000 

C 

34.21933, 

13.96500, 

4.84933. 

3. 57993. 

1 .9*580,  (MO  2005 

c 

1.05895, 

.77238. 

.48407. 

.345*8. 

.28490.  PHO  JO 10 

c 

.21097, 

.17*61, 

.14 ‘55. 

.1*773. 

.07*09.  *HO  30*5 

c 

.CSrOSf, 

.03467. 

.02413. 

.0*1(4, 

.0183*.  PHO  3020 

c 

.013SJ, 

.0*271. 

.0)367, 

.0*273, 

.013*3.  *HO  302$ 

c 

.01329, 

.01371. 

.0*4*7. 

.01491, 

,01883.  PHO  3030 

c 

.01582, 

-01535. 

.0*5*3. 

,0*573/ 

P«0  3038 

CAT  A  PHiPti#/ 

PHO  304* 

c 

. 8.59757, 

8,78438, 

4.8007*, 

3.33487. 

3.38314.  PHO  304$ 
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c 

t .77586, 

1 .36529, 

.84649, 

.55343, 

.37399, 

PHD 

3050 

c 

.25995, 

.18501, 

.13442, 

.09951 . 

.05039, 

PHD 

3055 

c 

■02794, 

.01684, 

.01103, 

.00787, 

.00614, 

PHD 

3060 

c 

.00521 , 

.00476, 

.00465, 

.00460, 

.00460, 

PHD 

3065 

c 

.00464, 

.00470, 

.00479, 

.00490, 

.00502, 

PHD 

3070 

c 

.00509, 

.00498, 

.00479, 

.00491/ 

PHD 

3075 

DATA 

PHSF56/ 

PHD 

3080 

C 

7.73376, 

C. 31989, 

4.61211, 

3.41189, 

2.56922, 

PHD 

3065 

C 

1  .96389, 

1.51900, 

.93560, 

.59521  , 

.38946, 

PHD 

3090 

C 

.26146, 

.17967, 

.12618, 

.09038. 

. 04241 . 

PHD 

3095 

C 

.62194, 

.01241 , 

.00766, 

.00519, 

.00366, 

PHD 

3100 

C 

.00314, 

.00278, 

.00267, 

.00259, 

.00254, 

PHD 

3105 

C 

.00251 , 

.00251, 

.00252, 

.00256. 

.00261  > 

PHD 

3110 

C 

.00263, 

.00274, 

.00268, 

.00273/ 

PHD 

3115 

DATA 

PHSF67/ 

PHD 

31P0 

C 

13.24333, 

*.1.06100, 

7.42300, 

4.70567, 

P.98533. 

PHD 

3125 

C 

1.97200, 

1.37267, 

.75370, 

.45857, 

.29573, 

PHO 

3130 

c 

.19823, 

.13693, 

.09688, 

.07004, 

.03369, 

PHD 

3135 

c 

.01789, 

.01040, 

.00660, 

.00460, 

.00353, 

PHD 

3140 

c 

.00298, 

.00273, 

.00266, 

.90266, 

.0026', 

PHD 

3145 

c 

.00265, 

.00265, 

.00266, 

.00270, 

.00282. 

PHD 

3150 

c 

.00308, 

.00319, 

.00262, 

.00275/ 

PHD 

3155 

DATA 

PHSF68/ 

PHD 

3160 

C 

37.10000, 

12.65667, 

5.63100, 

3.16800. 

2.05233, 

PHD 

3165 

e 

1.45750, 

1 .09982, 

.69772, 

.47462, 

.33515, 

PHD 

3170 

c 

.24170, 

.17635, 

.13072, 

.-09747, 

.04922, 

PHD 

3175 

c 

.02644, 

.01502, 

.00935, 

.00640, 

.00503, 

PHD 

3180 

c 

.00468, 

.00549, 

.00635, 

.00767, 

.00953, 

PHD 

3185 

c 

.01124, 

.01 140, 

.01090, 

.01055, 

.01125. 

PHD 

3190 

c 

.01355, 

.01701 , 

.01486, 

.02554/ 

PHD 

3195 

DATA 

PHSF69/ 

PHD 

3200 

C  J56. 51429, 

19.71571 , 

5.24714, 

2.30771, 

1.36100, 

PHO 

3205 

C 

.94431 , 

.72756, 

.50319, 

.37583, 

.26504, 

PHD 

3210 

C 

.22174, 

.17010, 

.13151 . 

.10155, 

.05367, 

PHO 

3215 

c 

.02648, 

.01561 , 

.00902, 

.00592. 

.00443. 

PHD 

3220 

c 

.00434, 

.00493, 

.00535, 

.00629, 

.00897, 

PHD 

3225 

c 

.01636, 

.01849, 

.01647, 

.01639, 

.01496. 

PHD 

3230 

c 

.01673, 

.02178, 

.02754, 

.05075/ 

PHO 

3235 

DATA 

PHSF70/ 

PHD 

3240 

c  : 

27. 44667, 

14.67667, 

7.63033, 

4.46200, 

2.82633, 

PHD 

3245 

c 

1 .89500, 

1.32600, 

.71323, 

.41983, 

.26377, 

PHD 

3250 

c 

.17420, 

.1  1977, 

.08514, 

.06224, 

.03144, 

PHD 

3255 

c 

.01785, 

,01118, 

.00766, 

.00573, 

.00466, 

PHD 

3260 

c 

.00407, 

.00377, 

.00358, 

.00363, 

.00360, 

PHD 

3265 

c 

.00359, 

.00360, 

.00381 , 

.00363, 

.00365, 

PHD  3270 

c 

.00366, 

.09367, 

.00367, 

.00369/ 

PHD 

3275 

END 

PHO 

3280 
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Table  7.  Descriptions  of  Plot  Program  Subroutines 


Page 

No. 

LOWPLT 

MAIN  DRIVER  PROGRAM.  READS 

4  CONTROL  CARDS. 

166 

AXISL 

PLOTS  A  LABELED  LINEAR  AXIS. 

174 

AXLOG 

PLOTS  A  LABELED  LOGARITHMIC  AXIS. 

177 

PLTDTA 

READS  LOWTRAN  DATA  FROM  TAPE  7. 

1 

DETERMINES  WHICH  VARL4BLE  TO  PLOT. 

173 

|  DRAW 

SETS  UP  DATA  TO  BE  PLOTTED.  DETERMINES 

WHICH  TYPE  OF  LINE  TO  PLOT. 

180 

DASH2 

PLOTS  A  DASHED  LINE. 

1 84 

DOT 

PLOTS  A  DOTTED  LINE. 

181 

DSHDOT 

PLOTS  A  LINE  WITH  ALTERNATING 

DASHES  AND  DOTS. 

183 

DSHDT2 

PLOTS  A  LINE  WITH  ALTERNATING 

DASH  AND  TWO  DOTS. 

182 

Table  8.  Listing  of  LOWTRAN  6  Plot  Code 


PROGRAM  LOWPLT( input .output. tapes* input < TAPE6*0UTPUT i TAPE? > 
1TAPE39) 


CCC 

ccc 

CCC  ****•••  LOWTRAN  SIX  PLOT  PROGRAM  •«»•*♦•*•**«*****' 

ccc 

CCC  PROGRAM  WRITTEN  BY 

CCC  FRANCIS  X.  RNEIZYS  OPI/AFQL 

.  CCC  JAMES  H.  CKETWYNO  JR.  OPI/AFGl 

CCC  LEONARD  W.  ABREU  OPI/AFGl 

CCC  ERIC  P.  SHETTLE  OPA/AFGL 


CCC 

ccc 

CCC  THE  PLOT  PROGRAM  WILL  PLOT  SEVERAL  FILES  OF  OUTPUT  DATA  FROM 
CCC  TAPE  7  AS  OUTPUT  FROM  STANDARD  LOWTRAN  SIX  RUNS. 

CCC  TO  INITIATE  PPOGPAM  AN  IDENTIFICATION  CARD  OF  30  HQLERITH 
CCC  CHARACTERS  IS  READ  IN  FOLLOWED  DY  TWO  CARDS  DEFINING  THE 
CCC  AXIS, WAVELENGTHS, DELTA. LENGTH  OF  X  AXIS  AND  Y  AXIS  ANO 

CCC  TYPE  OF  PLOT  DESIRED. 

CCC  THE  FOURTH  INPUT  CARD  IS  READ  IN  SUBROUTINE  PLTDTA 
CCC  AND  IT  CONTROLS  THE  PLOTTING  OF  THE  VARIOUS  VARIABLES 
CCC  OUTPUT  BY  LOWTRAN  SIX 

CCC  THE  FIFTH  INPUT  CARD  IS  READ  AFTER  FLOTTINQ  AND 

CCC  IT  DETERMINES  WHETHER  PLOTTING  ON  THE  SAME  PLOT  IS  DESIRED 

CCC  ANO  ALSO  DETERMINES  WHETHER  TO  REWIND  ANO  PLOT  THE  SAME  FILE 

CCC 

CCC  TO  PLOT  MULTIPLE  FILES  FROM  TAPE  7; 

CCC  THE  FOUR  INPUT  CARDS  MUST  BE  INPUT  FOR  EACH  FILE  TO  BE  PLOTTED 
CCC 

CCC  TO  END  PLOTS! 

CCC  SET  XSIZE^NEGATI VE  ON  LAST  INPUT  CARD. 

CCC 

ccc 

ccc 

ccc 

COMMON  /DXDY/  DX , ADY , PFRBEG, YRMIN, tXAXIS . 1YAXIS, PFRENO, YRMAX, 

C  ITYP.IYPWR.IEMSCT 
DIMENSION  PROOIOI3) 

DIMENSION  ACR01 ( B) , ACROS(B) , ACR03A (B) . ACRD2B! 6 ) , ACRD3C(8) 
DIMENSION  ACR()3(8)  ,ACR03D(B) ,  ACD3A!  (8) ,  ACD3A3(0)  .ACADA(B) 
DIMENSION  OUMMY( 8) 

DIMENSION  RADC(4 ) ,RAOM( 4} ,RADCLG(3) , RA0MLG(3) , WAVLI3) 

DIMENSION  WAVNO).TRAN(S) 

DIMENSION  CAROt(S)  ,CaR02(6)  ,CARD3A{2)  .CAR03BO )  < CAR03(3) 
DIMENSION  CAR030(3).CflD3A1(S),CRP3A3(5) 

OAT  A  RAOC/lOHRAOlANCEO.tOMO  WATTS/, 10HCM2-STER-C. 4HM-1 )/ 
DATA  R ACHW/ 1 CHRAO 1 ANCE ( 1 ■ 1 OHO  WATTS/.  10HCM2-STER-M,4M»C«i>' 
OATA  RxDCL3/IOHnAOIANCE(W, (0NATT$/CM2*S,#HTER-CM-t )/ 

DATA  R  A0Mi,0/ 1 0HRA01 ANCE ( W ,  I OMA I TS/CM3_S , SHTER'MICR ) / 

OATA  WAVE/lONWAVElENGTH, 10H  (MICRON)  / 

OATA  WAVN/<0HWAVCN(Hlt|£R.1OH  (CAW-1 )  / 

DATA  TRAN/!0HT»ANSMHTA.3HNCE/ 

OATA  CARD! / IOHUOUEL, ItYP, IOHE , IEMSCT ,M, tOHI ,M3 ,M3, IM, 
IIOH.NOPST.TBO.IHUNO.SAIB/ 

OATA  CAR02/1 0HIHA2G, IS6A, IOHSN, IVULCH, . IGHICSTL.ICIR, 
tlOH,  IVSA.VIS. ,  I0NWSS,WHH,RA.4HINRT/ 

OATA  CARD3A/IOHCTH1K,CALT,6H,IS6IO/ 

DATA  CAM03»/<0H2CV$A,2TVS.IHA,Z1NV$A/ 

DATA  CAR03/10NM1 ,H3,ANGL, I OHt , RANGE , Bt, BHTA. RO , LEN/ 


PLT 

100 

PLT 

10S 

PLT 

110 

PLT 

118 

PLT 

130 

PLT 

12S 

PLT 

130 

PLT 

138 

PLT 

140 

PLT 

148 

PLT 

ISO 

PLT 

1S5 

PLT 

160 

PLT 

165 

PLT 

170 

PLT 

17S 

PLT 

180 

PLT 

IBS 

PLT 

190 

PLT 

195 

PLT 

200 

PLT 

205 

PLT 

210 

PLT 

215 

PLT 

220 

PLT 

225 

PLT 

230 

PLT 

235 

PLT 

240 

PLT 

245 

PLT 

2S0 

PLT 

2B5 

PLT 

260 

PLT 

265 

PLT 

270 

PLT 

279 

PLT 

280 

PLT 

205 

PLT 

290 

PLT 

295 

PLT 

300 

PLT 

305 

PLT 

310 

PIT 

315 

PLT 

330 

PLT 

335 

PLT 

330 

PLT 

335 

PLT 

340 

PLT 

349 

PLT 

390 

PIT 

358 

PLT 

300 

PLT 

385 

PLT 

370 

PLT 

375 

PLT 

3B0 

PLT 

3SS 

PUT 

390 

OAT*  CARD30/1 0HH1 , P , T , DP , , 1 OHRH , WH , ¥0 , R , 4HANGE/ 

PLT 

395 

DATA  CR03A1/10HIPARM, I  PH, , 1 0H I DAY , 1S0UR(3HC  / 

PLT 

400 

DATA  CR03A2/1 0HPARM1 , PARM . 1 0H3 , PARM3 , PA, 1 0HRM4 .TIME,?, 

PLT 

405 

110HSIP0,  ANGLE,  3HM,G/> 

PLT 

410 

ccc 

PLT 

415 

ccc 

:tvp»o  radiance  per  micron  vs  MICRONS 

PLT 

420 

ccc 

ITYPal  RADIANCE  per  CM-1  VS  CM-1 

PLT 

425 

ccc 

ITYP-2  TRANSMITTANCE  VS  MICRONS 

PLT 

430 

ccc 

ITYP»3  TRANSMITTANCE  VS  CM-t 

PLT 

435 

ccc 

PLT 

440 

ccc 

IXAXIS.O  X-AXIS  HILL  BE  LINEAR 

PLT 

445 

ccc 

IXAXI$«t  X-AXIS  Ml  CL  BE  L0Q10 

PLT 

450 

ccc 

IYAXIS-0  Y-AXIS  HILL  BE  LINEAR 

PLT 

485 

ccc 

IYAXIS-1  Y-AXIS  HILL  SE  IOG10 

PLT 

460 

ccc 

PLT 

465 

IEOF-0 

PLT 

470 

ISAMPTaO 

PLT 

475 

IRPT-t 

PLT 

40  <) 

READ  (5,00)  ( PROQI D( I ) , I»1 ,3) , SCALE 

PLT 

405 

NR1TE  (6,05)  (PROQID( I) ,I*i ,3) .SCALE 

PLT 

490 

CALL  PLTID3(PR06I0, 900. 0,11,0, SCALE, A) 

PLT 

495 

CALL  PL0T(1. 0.1. 0,-3) 

PLT 

500 

ccc 

PLT 

505 

ccc 

XSIZE'LENQTH  OF  X-AXIS  IN  INCHES 

PLT 

510 

ccc 

PFRBEQaBEQINNING  FREQUENCY  ON  PLOT  IN  CM-1  OR  MICRONS 

PLT 

515 

ccc 

PFRENDaENOINQ  FREQUENCY  ON  PLOT  JN  CM-1  OR  MICRONS 

PLT 

520 

ccc 

0Xa(PFREND-PFR8EQ)/XS»6 

PLT 

525 

ccc 

ACVaNO.  OF  DIVISIONS  IN  TEN  INCHES  OF  PAPER 

PLT 

530 

ccc 

YRMIN  ANO  YRUAX  ARE  LOGARITHMS  BASE  10  OF  MINIMUM  AND  MAXIMUM 

PLT 

535 

ccc 

RADIATION  VALUES  WHICH  CAN  BE  PLOTTED 

PLT 

540 

ccc 

IN  PLOTTING  TRANSMITTANCE  OR  RADIANCE  LINEARLY 

PLT 

545 

ccc 

YRMIN  ANO  YRMAX  BECOME  THE  LIMITING  VALUES  OF  THe  YAX1S. 

PLT 

550 

ccc 

NMYOEC  SPECIFIES  THE  NUMBER  OF  DECIMAL  PLACES  ON  A  LINEAR  YAXIS 

PLT 

535 

ccc 

PLT 

560 

REWIND  7 

PLT 

595 

s 

READ  (5.60)  XSIZE , PFRBEG, PPREND.OELTAX , ITYP, IXAXIS.NUMFIL 

PLT 

570 

IFJXSIZE.LE.O. )  GO  »0  999 

PLT 

575 

WRITE  (6,00)  XSSZS, PFRBEG. PFREND.DELTAX.ITVP, IXAXIS.NUMFIL 

PLT 

680 

OXa(  PFREK0*-PF88E'G)/XSIZE 

PLT 

5B5 

ANUMXa ( PrREND-PFRBEQ)/OELTAX 

PLT 

590 

HU MX* ANUMX* , 5 

PLT 

593 

0SVLX.X3UE/ANUMX 

PLT 

BOO 

READ  (5,89)  YSIZ8, YRMIN. YRMAX, DEtTAV.ICRV.lVAXlS.lpAVOtC 

PLT 

BOS 

IF(OELTAY  .LE,  0.0)  OILTAYal.O 

PLT 

BIO 

AOY  .(YRMAX-YRM1N)/YSIIE 

PLT 

BI3 

ANUMY  a  ( YRMAX-YRM  IN  )/OELT  AY 

PLT 

eao 

numy»anumy+.s 

PLT 

023 

01  VLYaYSUE/ANUMY 

PLT 

530 

WRITE  (8.92)  Y5UE, YRMIN, YRMAX, OELTAY, ICRV ,  1  YAXIS, NMYOIC 

PLT 

635 

ccc 

PLT 

940 

ccc 

NUMFIL  CONTROLS  SPECIFIC  FILL  NO,  OF  LOwTRAN  TAPE  7  DATA 

PLT 

943 

ccc 

TO  BE  PLOTTEO. 

PLT 

930 

ccc 

PLT 

OSS 

ccc 

IF  NUMFILaO  IT  HILL  PLOT  THE  NEXT  AVAILABLE  FILE  OF  DAT*. 

PLT 

690 

ccc 

IF  NUMF I L>0  IT  w.  _L  PLOT  FROM  THE  NUMBERED  FILB 

PIT 

993 

ccc 

SPECIFIED  BY  *u“EFlL. 

PLT 

970 

ccc 

PLT 

#79 

IF(ftUHFtL.OT.O)  UOFaNUMFU-l 

PLT 

BBO 

IPtNUWPlL.lt.U  00  TO  12 

PLT 

SEE 

REM 1 NO  7 
NNF»1 

IF(NUMFIL.EQ.NNF)  so  TO  12 
S  00  9  I«1,10 

READ  (7,101)  DUMMY 
0  CONTINUE 

11  READ  (7,99)  DUM 
IF(0UM.NE.-9999-)  SO  TO  11 
NNF»NNF+1 

IF(NUMFIL.EO.NNF)  SO  TO  12 
GO  TO  8 

12  CONTINUE 
CCC 

CCC  THE  LOWTRAN  SIX  PLOT  PROGRAM  EXPECTS  TEN  INPUT  CAROS  ON  TAPE  7 
CCC  WHICH  WAS  GENERATED  FROM  A  LOWTRAN  RUN. 

CCC  THERE  CAN  BE  SEVERAL  SETS  Of  DATA  AND  INPUT  CARDS  SEPERATEO  8V 

CCC  AN  END  OF  FILE,  WHICH  IS  CODED  -9999.  IN  CQI .  1-8 

CCC  THE  INPUT  CARDS  ARE  AS  LISTED  IN  THE  LOWTRAN  INSTRUCTIONS 

CCC  THE  MANDATORY  CARDS  OUTPUT  TO  TAPE  7  ARE 

CCC  CARD 1 , CARD2 , CARD2A , CARD2B , CARD2C , CARD3 ,  OR  OPTIONAL  CARDS 

CCC  (MODELiO),  CARD3A 1 , CARD3 A2 , CARD4  AND  CARDS . 

CCC  IN  A  GIVEN  RUN  SEVERAL  OF  THESE  CAROS  MAY  NOT  BE  UTILIZED 
CCC  IN  THAT  EVENT  THEIR  VARIABLES  WILL  BE  REPRESENTED  BY  -99 
CCC 

CCC  IN  THE  OUTPUT  DATA  ON  TAPE  7  DURING  A  NORMAL  EMISSION  RUN  FOR 
CCC  EXAMPLE  SEVERAL  OF  THE  VARIABLES  ARE  NOT  UTILIZED  IN  THIS  CASE 
CCC  THEIR  VARIABLES  WILL  BE  REPRESENTED  BY  -9»  ALSO. 

CCC 

CCC 

CCC  READING  AND  WRITING  INPUT  CARDS  TO  THE  PLOT 

CCC 

CCC 

IF(ISAMPT.GT.O)  GO  TO  13 

READ  (7,100)  MODEL, 1TYPE.IEMSCT, Ml .M2.U3, 1M.N0PRT.TB0UHD, SALB 

BACKSPACE  7 

READ  (7,101)  ACRD1 

IF( IEMSCT . EQ.O)  WRITE  (8,102) 

iriIEMSCT.eo.1)  WRITE  (6.103) 

IF(  IEMSCT. Et). 2)  WRITE  (5,104) 

IF( IEMSCT. EO. 3)  WRITE  (6,103) 

WRITE  (6.100)  MODEL, 1 TYPE, IEMSCT, Ml ,M2 ,M3, IM.NOPRT .TBOUNO.SALB 

YT.7,0 

XT«I . 

Call  SYMBOL (XT , VT ,0. I RiCAROI ,0,0,48) 

YT»YT-0 i 2 

CALL  SYMBOL (XT  . YT ,0. 12, ACR01 ,0,0. BO) 

READ  (7.101  )  ACRD2 
WRITE  (8,101)  ACR02 
YT«YT-0,4 

CALL  SYMOOL(XT,YT,O.ia.CARO2,O.0,B4) 

VT.YT-O.J 

CALL  SYN80l(XT ,Yt ,0. 1 5 , ACR02 , 0 .0,90) 

READ  (7,101  )  ACHDJA 
WRITE  (6,101)  ACR03A 
Y7»Yf -0,4 

CALL  SYMBOUXT.YT.0, 12.543024,0.0. 16) 

VT»YT-C.3 

CALL  SYMBOL (XT, YT ,0, 1 2. ACADIA, 0.0. 80) 

READ  (7,101  )  ACR03B 


PLT 

690 

PLT 

695 

PLT 

700 

FLf 

705 

PLT 

710 

PLT 

71S 

PLT 

720 

PLT 

725 

PLT 

730 

PLT 

735 

PLT 

740 

PLT 

745 

PLT 

750 

PLT 

755 

PLT 

760 

PLT 

765 

PLT 

770 

PLT 

775 

PLT 

780 

PLT 

785 

PLT 

790 

PLT 

795 

PLT 

800 

PLT 

805 

PLT 

810 

PLT 

815 

PLT 

820 

PLT 

82S 

PLT 

830 

PLT 

835 

PLT 

840 

PLT 

845 

PLT 

850 

PLT 

855 

PLT 

860 

PLT 

685 

PLT 

870 

PLT 

875 

PLT 

880 

PLT 

eat 

PLT 

BBS 

PLT 

060 

PLT 

895 

PLT 

900 

PLT 

903 

PLT 

910 

PLT 

913 

PLT 

920 

PLT 

923 

PLT 

930 

PIT 

033 

PLY 

940 

PIT 

943 

PLT 

030 

PIT 

939 

PLT 

960 

PLT 

*65 

PLT 

970 

PLY 

975 

160 


ccc 

ccc 

ccc 


CCS 

ccc 


WRITE  (6,101)  ACROSB 
YT.YT-0.4 

CALL  SYMBOL(XT , YT , 0. 1 2 , CAR02B , 0 . 0 ■ 1 B) 
YT.YT-0.2 

CALL  SYMBOL(XT,YT,0.l2.ACRD28,0.0,e0) 
READ  (7,101  )  ACR02C 
WRITE  (6,101)  ACRD2C 
YT.YT-0.4 

CALL  SYMBOL(XT,YT,0. 12, 8HML, TITLE, 0.0 
YT.YT-0.2 

CALL  SYMSOL(XT , YT , 0. 12 , ACRD2C,0. 0*80) 
IF(MODEL.NE.O)  READ  (7,101  )  ACRD3 
IF(MODEL.NE.O)  WRITE  (6,101)  ACR03 
IF(MODEL.EQ.O)  READ  (7,101  )  ACRD3Q 
IF(MODEL.EQ.O)  WRITE  (6,101)  ACRD30 
YT.YT-0.4 

IF(MODEL.NE.O)  CALL  SYMB0L(XT,YT,0.12 
IF(MDDEL.EO.O)  call  SYMBOL(XT,YT,0.12 
YT.YT-0.2 

lF(MODEL.NE.O)  CALL  SYMB0l(XT,YT,0.12 
IF(UaOEL.EQ.O)  CALL  5YMBOL(XT,YT,0.ia 
READ  (7,101  )  ACD3A1 
WRITE  (6,101)  AC03A1 
YT.YT-0.4 

CALL  SYMBOL (XT , YT,0. 12 ,CRD3At ,0.0,31 ) 
YT.YT-0.2 

CALL  SYMBOL(XT, YT,0. 12, ACD3A1 ,0.0,80) 
READ  (7,101  )  ACD3A2 
WRITE  (6,101)  AC03A2 
YT.YT-0.4 

CALL  SYMBOL ( XT , YT , 0 . 1 2 , CR03A2 ,0.0,43) 
YT.YT-0.2 

CALL  SYMBOL(XT,YT ,0.12, ACD3AI.0.0.80) 
READ  (7,101  )  ACRD4 
WRITE  (6,101)  ACRD4 
YT.YT-0.4 

CALL  SYMBOL ( XT ,YT ,0. 12.8MV1 , V2,0V,0.0 
YT.YT-0.2 

CALL  SYMBOL (XT , YT ,0. 12.ACRD4 ,0.0.80) 

BE  AO  (7,600  )  1RPT 

BACKSPACE  7 

REAO  (7,901  )  ACR05 

WRITE  (6',«0T)  ACR05 

VT.YT-0,4 

CALL  SYMBOL (XT ,YT ,0, 12,4HIRPT ,0,0,4) 
YT.YT-0.2 

CALL  S YM83L ( XT, YT. Q, l2,ACAQ9. 0,0.9) 

SET  UP  TO  PLOT 

CALL  PLOT)  It), 0,0, 0.-3) 

CALI  PL0T(O.O.Y5ti€.3) 

CALL  PL0T(XS12I.YSUe,2) 

CALL  PLOTtXSIZE, 0.0,2) 

CALL  PL0TtO.,0..3) 

call  »LOT|o.,vsijre.3i 
CALL  PL0T(0.,YSUt,3) 

SET  UP  TO  DRAW  AXIS 


PLT 

980 

PLT 

985 

PLT 

990 

PLT 

995 

PLT 

1000 

PLT 

1005 

PLT 

1010 

PLT 

1015 

.8) 

PLT 

1020 

PLT 

1025 

PLT 

1030 

PLT 

1035 

PLT 

1040 

PLT 

1045 

PLT 

1060 

PLT 

1055 

,CARD3,0. 

0,29) 

PLT 

1080 

,CARD30,0 

.0,24) 

PLT 

1065 

PLT 

1070 

,ACRD3,0. 

0,80) 

PLT 

1075 

i  ACR030 , 0 

.0,80) 

PLT 

1080 

PLT 

1085 

PLT 

1090 

PLT 

1095 

PLT 

1100 

PLT 

1105 

PLT 

1 1 1  0 

PLT 

1115 

PLT 

1120 

PLT 

1125 

PLT 

1130 

PLT 

1135 

PLT 

1140 

PLT 

1145 

PLT 

1150 

PLT 

1153 

•  ) 

PLT 

1160 

PLT 

1165 

PLT 

1170 

PLT 

1175 

PLT 

1180 

PLT 

1185 

PLT 

1180 

PLT 

1195 

PLT 

1200 

PLT 

1203 

PLT 

1210 

PLT 

1215 

PLT 

1220 

PLT 

1225 

PLT 

1230 

*LT 

1233 

PLT 

1240 

PLT 

124$ 

PLT 

1230 

PIT 

1258 

PLT 

1260 

PLT 

1265 

PIT 

1270 

169 
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ALA, 


ccc 


IYPWR*ALOG10(DELTAY) 

IF((ITYP.EQ.O.0R.ITYP.EQ.1)  .AND.  lYAXIS.EQ.O)  SFY-10.**(-IYPW») 
NUMCX=PFREND-PFRBEG 
CYCLX-XSIZE/FLOAT (NUMCX) 

NUMCY-YRMAX-YRMIN 
CYCLY«YSIZ£/FLOAT( NUMCY) 

IF((ITYP.£O.O.OR. JTYP.EO.a)  .AND.  IXAXIS.EQ.O) 

XCALL  AXISL  (0.0,0.0,WAVL,-20,NUMX,OIVLX, 1 , 

X  PFRBEG.OELTAX.I ,0... 125,1 .0,0,0, 0) 

IF((ITYP.EO.O,OR.ITYP.E0.2)  .AND.  IXAXIS.EQ.O 
XCALL  AXLQG(0 . 0,0  *  O.WAVL  ,~*20,  NUNCX.CYCLX, 

X  PFRBEG, 0.0, 0.125,1 ,0,0. 0.0) 

IF((ITYP.E0.1.0R,ITYP.EQ.3)  .AND.  IXAXIS.-EQ.O) 

XCALL  AXISL(0.0,0.0,NAVN,-20,NUMX,DIVLX,1 , 

X  PFRBEG. OELTAX.-1 ,0. ,.125,1,0,0,0,0) 

IF((ITYP.EQ.1.0R.ITYP.EQ.3)  .AND.  IXAXIS.EQ.1) 

XCALL  AXLOG { 0 . 0 , 0 . 0 , WA VN , -20 , NUMCX , CYC  LX , 

X  PFRBEG, 0.0, 0.125,1 ,0.0, 0,0) 

IF( ITYP.EQ.O  .AND.  lYAXIS.EQ.O) 

XCALL  AX1SL(0. ,0 . , RADM , 34.NUMY , 

XOIVLY,  3,YRNIN*SFY,DELTAY*SFY,NMY0EC.9O.,O.lB.1.1,0,O,O) 
IFflTYP.EQ.O  .AND.  1YAXIS.EQ.1) 

XCALL  AXLOG(0. .0. , RADM LG, 29.NUMCY.CYCLV, 

X  YRMIN,90. ,0.'5,1 ,1. 2,0,0) 

IF( ITYP, EQ. 1  .AND,  lYAXIS.EQ.O) 

XCALL  AX1SLI0..0. .RADC.34.NUMY, 

XOIVLY.  3.YRU1N*SFY.0EL7AY*SFY,NMYDBC,90.,0. IS, 1,1, 0,0,0) 

I F ( ITYP  .EQ, 1  .AND.  IYAXIS.EQ. 1 ) 

XCALL  AXLOO 1 0 . . 0 . . R ADC  LG , 29 . NUMCY , CYC  LY , 

X  YRM1N, 93 .,.15,1,1,2,0,0) 

IF( ( ITYP  .EQ. 2. OR. ITYP  .EQ.3)  .AND.  lYAXIS.EQ.O) 

X  CALL  AXISHO,  .0.,TRAN113.NUMY,DIVLY,2.YRMIN.0ELTAV, 

XNMYOEC, 90.0, .125.1 ,1 ,2,0,0) 

IF((ITYP  .EQ, 2. OR. ITYP  .E0.3)  .AND.  IYAXIS.EQ. t) 

X  CALL  AXLOQ(O..0., TRAN. 13. NUMCY, CYCLY.YRMIN, 

X  90.0. ,128,1,1.0,0,0) 

IMt-YP  , CQ.O  .AND.  lYAXIS.EQ.O) 

XCALL  AXlSL(XSI2E,D.,AA0N,-34, 

XNUMY,  DIVL Y ,3 , YRMIN-SFY , OELTAY«SFY , NMYO£C .90. , . IS, 1 , 1 ,0,0,0) 
IFIITYP  ,EQ,0  .AND.  IYAXIS.EQ. 1) 

XCALL  AXL0GtXSI2E.0..RADMLG, -29, NUMCY, 

X  CVCLY,YRMIN,90 ...IS. 1.1, 2, 0,0) 

JF(!TYP  , EQ . 1  .AND.  lYAXIS.EQ.O) 

XCALL  AXISL(XSUE,0..RA0C.'34, 

XNUMY.  0IVLV,3iYRMIN*SFY , DELI AY*SFY ,NMY0EC,90. ,,1S, 1,1, 0,0,0) 

1F( ITYP  .EQ. I  .AND.  IYAXIS.EQ. I) 

XCAL L  AXLOQ ( XSUE . 0, , RAOCLG , -29 , NUMCY , 

X  CYCLY.YRUIN. 90. ..18.1.1.2.0.0) 

IFUITYP  .EQ.2.0K.ITYP  .EQ.3}  .AND.  IYAXI5.EQ.0) 

X  CALL  AXISL(XSlZE.O.,TRAN.-10,NVMY,OtVLY,2,V«MlN, 

XOELTAY . NNyDec.oo. 0 , ,128,1.1 .2,0.0) 

IFMITYP  .EQ. s, OR. ITYP  .EQ.3)  .ANO.  IYAXIS.EQ, 1) 

X  CALL  AXLOOSXSUE.O., THAN, -13, NUMCY, CYCLY.YWIN, 

X  90.0, .125,1.1,0,0,0) 

00  TO  10 

CCC 

CCC  MEAD  AXOUHO  NEAPED  DECODOS  AS  PILE  IS  PLOTTEO  ON  SAME  PLOT 
CCC 


PIT  1275 
PLT  1280 
PLT  1285 
PLT  1290 
PLT  1295 
PLT  1300 
PLT  1305 
PLT  1310 
PLT  1315 
PLT  1320 
PLT  1325 
PLT  1330 
PLT  1335 


PLT  1345 
PLT  1350 
PLT  1355 
PLT  1360 
PLT  1365 
PLT  1370 
PLT  1375 
PLT  1380 
PLT  1385 
PLT  1390 
PLT  1390 
PLT  1400 
PLT  1405 
PLT  1410 
PLT  1415 
PLT  1420 
PLT  1425 
PLT  1430 
PLT  1435 
PLT  1440 
PLT  1445 
PLT  1450 
PLT  1493 
PLT  1409 
PLT  146S 
PLT  1470 
PLT  1475 
PLT  14S0 
PLT  1409 
PLT  1490 
PLT  1499 
PLT  1800 
PLT  1805 
PLT  1810 
PUT  ISIS 
PLT  1820 
PLT  1938 
PLT  1830 
PLT  1S3S 
PLT  1840 
PIT  1949 
PLT  1890 
PLT  1888 
PLT  18C0 
PLT  I  SID 


170 
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13  00  14  1-1 , 10 

READ  (7,101)  DUMMY 
WRITE  (0,101)  DUMMY 

14  CONTINUE 

15  CONTINUE 
CCC 

CCC  READ  IN  DATA  TO  BE  PLOTTED 
CCC 

CCC  ITRP  CONTROLS  THE  PLOT  OF  TRANSMISSION  VARIABLES 
CCC  ITRP.O  PLOTS  TOTAL  TRANSMISSION 

CCC  ITRP-1-7  PLOTS  N2O,CO3,0Z0NE,N2C0NT,H30CONT,M0LSCT,AERTRN 
CCC 

XT-0. 

CCC 

CCC  SUBROUTINE  PLTOTA  IS  CALLED  TO  IMPLEMENT  THE  READING 
CCC  IN  AND  PLOTTING  OF  TRANSMISSION  AND  OR  EMISSION  VALUES 
CCC  FROM  TAPE7. 

CCC 

CALL  PLTOTA(ICRV.IEOF) 

CCC 

CCC  ISAMFL'O  NORMAL  ADVANCE  TO  NEXT  FILE 
CCC  ISAMFL"  1  REWIND  AND  00  TO  SAME  FUE 
CCC 

CCC  1SAMPT.0  NORMAL  ADVANCE  TQ  NEXT  PLOT 

CCC  I$AMPT>1  PLOT  ON  SAME  PLOT 

CCC 

CCC  ISAMFL  AND  ISAMPT  ARE  SET  TO  HANDLE  THE  NEXT  FILE  OF  DATA 
CCC  TO  BE  PLOTTED. 

CCC 

READ  (5,94)  ISAMFL, ISAMPT 
WRITE  (6.94)  ISAMFL. ISAMPT 
IF( ISAMFL. QT , 0)  CO  TO  63 
61  IF( ISAMPT ,QT . 0)  GO  TO  63 
XT.XSIZE+3.0 
CALL  PLOT(XT.O.O.“3) 

63  CONTINUE 
CCC 

CCC  RECYCYCLE  TO  PLOT  THE  NEXT  FILS  OF  DATA 
CCC 

00  TO  8 

63  CONTINUE 
IF(IEQF.NS.I)  00  TO  64 
REWIND  T 

00  TO  61 

64  NE0F.1 
REWIND  T 

65  DO  60  1.1,10 

READ  (7,101)  DUMMY 

66  CONTINUE 

67  READ  (7,69)  OUM 

If ( OUM. NE. -9999, )  00  TO  67 
NEOF.tteOF.1 

1FtieOF.EQ.NtOF)  00  TO  69 
00  TO  65 

68  IEOFMEOF-1 
00  TO  61 

CCC 

CCC  PLOTTINO  OUSR  00  TO  fiNQ 

CCC 


PLT  1B70 
PL?  1575 
PLT  1580 
PLT  1585 
PLT  1590 
PLT  1595 
PLT  1600 
PLT  1005 
PLT  1810 
PLT  IBIS 
PLT  1630 
PLT  1635 
PLT  1630 
PLT  1635 
PLT  1640 
PLT  1045 
PLT  1650 
PLT  1655 
PLT  1660 
PLT  1665 
PLT  1970 
PLT  1675 
PLT  1660 
PLT  1685 
PLT  1690 
PLT  1695 
PLT  1700 
PLT  1705 
PLT  1710 
PLT  1715 
PLT  1730 
PLT  1Y3S 
PLT  1730 
PIT  1735 
PLT  1740 
PLT  1743 
PLT  1750 
PLY  1755 
PLT  1760 
PLT  1763 
PLT  1770 
PLT  1TT3 
PLT  1710 
PLT  1763 
PLT  1790 
*LT  ms 
PIT  1600 
PLT  1503 
PIT  IBIO 
PLT  1615 
PIT  1630 
PLT  1633 
PLT  1039 
PLT  163$ 
PLT  (B«v 
PLT  16«$ 
PLT  1*50 
PLT  1659 
PLT  I860 


17) 


MS  CONTINUE 

CALL  PLOT(XT,0.0,-3) 

CCC 

ccc 

80  FQRMAT(3A10,F10.«) 

85  F0RMAT(1H1,5X,3A10,F10.4//) 

88  FORM AT (4F1 0.4, 31 5) 

89  FORMAT (F10.4,3£10.2,3I5) 

BO  FORMAT (//4F1 0.4, 315) 

92  FORMAT ( F 1 0 . 4 , 3E1 0.2*315//) 

94  FORMAT (215) 

99  FORMAT (F7.0) 

TOO  FORMAT (8X5,2F10.3) 

101  FORMAT (8A1 0) 

102  FORMAT ( 10X, 1 4H  TRANSMISSION  //) 

103  FORMAT( 1 0X, 1 0H  RADIANCE  //) 

104  FORMAT ( 1 0X , 32H  RADIANCE  WITH  SOLAR  SCATTERINO  //) 

105  FORMAT (1  ox, 25H  DIRECT  SOUR  IRRADIANCC  //) 

500  FORMAT (IS) 

501  FORMAT (A5) 

CALL  ENOPLT 
STOP 

ENO 


PLT  1865 
PLT  1870 
PLT  1875 
PLT  I860 
PLT  1885 
PLT  1890 
PLT  1895 
PLT  1900 
PLT  1905 
PLT  1910 
PLT  1915 
PLT  1920 
PLT  1925 
PLT  1930 
PLT  1935 
PLT  1940 
PLT  1945 
PLT  1945 
PLT  1950 
PLT  1955 
PLT  I960 
PLT  1985 
PLT  1970 
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SUBROUTINE  PLTDTA(ICRV.IEOF) 

OTA 

100 

ccc 

OTA 

10B 

ccc 

ROUTINE  TO  READ  TAPE7  EMISSIONS  AND  TRANSMISSIONS 

OTA 

110 

ccc 

AND  PLOT  VARIOUS  VALUES. 

OTA 

119 

ccc 

ITRP-0  PLOTS  TOTAL  TRANSMISSION 

OTA 

130 

ccc 

ITRP>t-7  PLOTS  H20.C03, OZONE, N3CONT,H20CONT,MOLSCT,AERTRN 

OTA 

ias 

ccc 

ITRP«8-10  PLOTS  HN03.AERABS  OR  1NTEG.  ABS 

OTA 

130 

ccc 

OTA 

13S 

COMMON  /DXDY/  OX,  ADY .PFRBEO, YRMIN,  IXAXIS,  IYAXIS.PFREND.YRMAX, 

OTA 

140 

C  ITYP.lYPWR.IEMSCT 

OTA 

141 

DIMENSION  RAO ( 400 ) , V ( 430 ) , TRN( 1 0 ) , R AOVAL ( 9 ) 

OTA 

149 

ccc 

DTA 

ISO 

ccc 

IRAQ  AND  ITRP'O  PLOTS  TOTAL  TRANSMITTANCE 

DTA 

159 

ccc 

OTA 

196 

ccc 

IF  I EMSCT*  1 

OTA 

160 

ccc 

IRAD«1  PLOTS  ATMOSPHERIC  RADIANCE  PER  CM-1  VS  CM-t 

OTA 

161 

ccc 

IRAD.2  PLOTS  ATMOSPHERIC  RADIANCE  PER  MICRONS  VS  MICRONS 

OTA 

163 

ccc 

OTA 

163 

ccc 

IF  IEMSCT*3 

OTA 

165 

ccc 

1RA0-1  TO  B  PLOTS  ATMOSPHERIC, SCATTERED, REFLECTED  AND  TOTAL 

OTA 

170 

ccc 

RADIANCE  PER  CM-1  VS  CM-1  AND  MICRONS  V$  MICRONS  RESPECTIVELY 

OTA 

171 

ccc 

OTA 

173 

ccc 

IF  1EMSCTO 

OTA 

175 

ccc 

IRA0.1  TO  4  PLOTS  TRANSMITTED  SOLAR  IRRAOIANCE  AND  INCIDENT 

OTA 

180 

ccc 

SOLAR  IRRADIANCE  PER  CM-1  VS  CM-1  AND  MICRONS  VS  MICRONS 

OTA 

161 

ccc 

respectively 

OTA 

165 

ccc 

OTA 

190 

ccc 

OTA 

199 

TRANS. 0. 

OTA 

310 

READ  (S.S4)  1RA0.ITRP 

OTA 

ais 

WRITE  (0,94)  IRA0.1TRP 

OTA 

aao 

J»1 

OTA 

325 

READ  (7,900)  RA1N.CIRRUS 

OTA 

330 

WRITE  (6.900)  RAIN.CIRRUS 

OTA 

335 

so 

IF( (EMSCT .OT.O)  READ  (7,1000)  FREO.ALAM. (RAOVAL(N) ,K«1 ,0) . 

OTA 

340 

1  TRANS 

OtA 

349 

IF( (EMSCT. £0.0)  READ  (7,1100)  FREQ, ALAN, TRANS, (TRM(t) ,1*1 , 10) 

OTA 

aso 

IFIFRE0.E0.-0999.)  CO  TO  SO 

OTA 

355 

CONTINUE 

OTA 

359 

dWT.O 

OTA 

375 

UFNU*J 

OTA 

360 

V(d)»ALAM 

OtA 

308 

IF( ItRP  .EQ.  0)  RAO(d) *TRANS 

OTA 

390 

IF( )TMP  .at.  0)  RA0( J)»TfiM( ItRP) 

OTA 

395 

IF(  ItYP.SO.  1 ,0R,  ITYP,EQ.3)  V(J)*FM« 

OTA 

300 

IF(Vtd).LT.PfR*tO)  oo  to  ao 

OtA 

308 

IF( VtJ) .St .PFRINO)  SO  TO  30 

OtA 

310 

(FUEMSCT.at.O  .AMO,  IRAO.Ot.O)  RAO(d).RAOVAlURAO) 

OtA 

3t9 

lPtU.tiE.339)  (10  tfl  43 

OtA 

398 

dvJM 

OTA 

400 

CO  tO  30 

OTA 

405 

etc 

OtA 

410 

eec 

FLOt  OAtA 

OtA 

4lB 

ccc 

OtA 

430 

ccc 

rtn  S t  HKC  Fiortto  IS  CUNf POLLED  BY  the  VALUE  07  1C4V 

OtA 

4  n 

see 

SUBROUTINE  ORAM  EXPLAINS  »«C  USE  OF  IC4V  IN  04TAININ0 

DTA 

430 

ccc 

VARIOUS  TYPES  OF  FLOttEO  LINES 

OTA 

435 

ece 

OtA 

440 

40 

CALL  ORAWtv.RAO.JFNU.ICRV) 

OTA 

448 

ooooAft o onfjoftft fvo AfiffrOttlsor*** ftftooooft oftoooooorio^joooor/noooooon  o 


WHITE  (6,2000)  V( 1 ) ,RA0(1 ) ,V<JFNU> .RAO(JFNU) 

IF(J. LT .399  )  00  TO  60 

V(1)*V(399) 

H*0(1 )*H*0(399) 

J»2 

00  TO  20 
SO  CONTINUE 

IE0F*!E0F+1 

UWT«U-1 

JFNU-J-1 

IF(UWT.LE.t)  00  TO  60 
00  TO  40 
60  CONTINUE 
94  FORMAT (SIS) 

900  F0R»AT(3F9.4) 

1000  FORMAT ( FT. 0 , FB . 3, 9E9. 2 , F8 .4) 

1100  FORMAT ( F7. 0, F8. 3, 1 0F8-4.F12.4) 

2000  FORMAT (3(F10.3,E10.3)) 

RETURN 

END 


OTA  450 
OTA  45S 
OTA  460 
OTA  465 
OTA  470 
OTA  475 
OTA  480 
OTA  485 
OTA  490 
OTA  495 
OTA  500 
OTA  505 
OTA  510 
OTA  515 
OTA  520 
OTA  525 
OTA  530 
OTA  535 
OTA  540 
OTA  549 


SU8R0UTINE  AXISUX,  Y.  BCD,  N,  NUM01V,  OIVLEN.  NUMSUB,  BEGNUM,  AXL 
1  OELNUM,  NUMOEC.  THETA,  HEIGHT,  NRPT.NTURN  ,  NOENO,  ISUPR,  LTURNJAXL 

AXL 

UOOIFIED  VERSION  OF  AXlSL  AXL 

AXL 

WRITTEN  BY  RICHARD  L.  TAYLOR  RAOC/ET  EEC  NOVEMBER  1980  AXL 

AXL 

ROUTINE  TO  PLOT  A  LABELLED  LINEAR  AXIS  AXL 

AXL 

AXL 

X  AND  Y  ARE  THE  SURT1N0  COORDINATES  OF  THE  AXIS  RELATIVE  TO  THE  AXL 

AXL 

CURRENT  ORIGIN  AXL 

AXL 

SCO  IS  THE  LABEL  OF  THE  AXIS  EXPRESSED  AS  A  HOLLERITH  CONSTANT  AXL 

AXL 

N  IS  THE  NUMBER  OF  CHARACTERS  IN  THE  LABEL  AXL 

AXL 

MOTIVE  N  PLACES  THE  LABEL  ON  THE  CLOCKWISE  SIDE  OP  THE  AXIS  AXL 

AXL 

POSITIVE  H  PLACES  THE  LA9SL  ON  THE  COUNTERCLOCKWISE  SIDE  AXL 

AXL 

NUNQtV  IS  THE  NUMBER  OF  MAJOR  DIVISIONS  AXL 

AX(, 

OIVLEN  IS  THE  LENGTH  IN  INCHES  OF  A  MAJOR  DIVISION  AXL 

AXL 

NUMSUB  IS  THE  NUMBER  OF  MINOR  DIVISIONS  PER  MAJOR  DIVISION  AXL 


1  GIVES  NO  SUBDIVISION  TICS,  9  GIVIS  ONE  SUBDIVISION  TIC,  ETC.  AXL 

mgnum  is  the  number  for  the  beginning  op  the  axis 

DUNUM  IS  THE  DELTA  NUMBER  FOR  A  MAJOR  DIVISION 
NUMOEC  IS  THE  NUMBER  OP  DECIMAL  PLACES  OEStREO 

NUMOEC  EQUAL  TO  *1  SUPPRESSES  THE  DECIMAL  POINT 
THETA  ts  THE  ANGLE  OF  THE  AXIS  IN  DEGREES  (0.0  FOR  X.  90.0  FOR  V)  AXL 


HEIGHT  IS  The  height  of  the  numbers  in  Inches  AXL 

AXL 

KAPt  IS  THE  REPEAT  FACTO#  FOR  THE  SCALE  NUMBERS  ( USUAL LT  INTEGER  1)  AXL 

AXl 

when  HRPt  IS  EERO  the  scale  NUMBERS  wtu  BE  SUPPRESSED;  AXL 

AXl 

when  mjpt  ■  a.  every  sno  scale  number  will  it  peaoucEo;  etc.  axl 

AXL 

NTURN  EQUAL  TO  1  TUANS  THE  AXIS  NUMBERS  «Y  $0  DECREES  CLOCKWISE,  AXL 
“*  TURNS  NUMBERS  BY  90  DECREES  COUNTERCLOCKWISE.  0  FOR  NO  TURN  AXL 

AXL 

MEND  EQUAL  TO  1  SUPPRESSES  ThE  NUMBERS  AT  EITHER  OF  THE  AXIS.  AXL 

axl 

t  SUPPRESSES  THE  BEGINNING  NUMBER,  9  THE  ENDING  NUMBER  AXl 

AXL 

LSUFA  EQUAL  TO  1  SUPPRESSES  THE  LABEL  AXL 

LtURN  NOT  USED  AXL 

AXL 

common/i  snoe/xpos.  ypos  axl 


AXL 

AXL 

AXL 

AXL 

AXL 

AXL 

AXL 

AXL 

AXL 


100 

105 

110 

115 

190 

125 

130 

135 

140 


145 

150 

155 

ISO 

185 

1T0 

ITS 


190 

IRS 

I9Q 

IBS 

200 

305 

310 

315 

330 

935 

330 

939 

340 


145 


350 

335 

350 

sts 

3T0 

375 

300 

3X3 

3B0 

IBS 

300 

90S 


3)0 

315 

330 

33$ 

310 

335 

340 

345 

3S0 


355 

310 

3CS 

3T0 

ITS 

340 

3B5 

390 


174 


oonn  o 


«> 


COMMON  /OXDY/  DX.AOY,PFRBEG.YRMIN.IXAXIS.H*XlS,PFReNO.YRMAX, 
C  ITYP.IYPWR.IEMSCT 
DIMENSION  BCD( 1 ) 

THETA1«THETA-90- *NIURN 
PI  »  2.  ♦  ASIN( 1 . ) 

ANGIE  *  (Pl/180. )  *  THETA 
SINANG  ■  SIN(ANGLE) 

COSANG  •  COS(ANGLE) 

SIGNAX  •  FLOAT ( ISIGN( 1 ,N}) 

SIZMAJ  ■  0.35  •  HEIGHT  ♦  0.05 
0FFST»HE1GHT*1 .5 

DXMAJ  •  -SIZMAJ  •  SINANG  •  SIGNAX 
OYMAd  •  SIZMAJ  *  COSANG  •  SIGNAX 
OXM1N  ■  0.5  •  DXMAJ 
0YM1N  a  O.S  »  OYMAJ 
NSUQ  •  NUMSUB 

I F( NUMSUB  .LT.  1)  NSU8  *  T 
SUBDIV  •  OIVLEN  !  FLQAT(fiSUB) 

BCDSIZ  ■  1 .25  •  HEIGHT 

Y0I AS  »  (-0.50  ♦  S1GN(1.25,  SIGNAX.' )  •  HEIGHT  *  OYMAJ 
NABS  *  IABS(N) 

BCDLEN  «  (FLOAT (NABS)  -  0.4)  «  BCSSIZ 
S  •  OIVLEN  •*  FLOAT iNUMOIV) 

OIVCOS  •  OIVLEN  «  COSANG 
DIVSI.N  ■  OIVLEN  ■  SINANG 
SIZMAX  a  HEIGHT 


3RAM  DIVISION  NUMBERS 


.OR-  KSENO  . EO-  3)  ,AN0. 
.OR.  NOfJ«)  .EO.  1)  .AND. 


NWV  ,tS}.  0) 

NOIV  . EO.  NUMOIV) 


NO I V  •  0 
10  DIGITS  •  0.0 

XTIC  •  X  *  OIVCOS* FLOAT ( KOI V) 

VTIC  •  V  ♦  DIVS IN* FLO*? (KOI V) 

1F(NBPT  .EO.  0)  GO  TO  30 
NSU?«  *  NO IV  -  (N0IV/NSPT)*NRPT 
IMNSUPR  .he.  0)  GO  TO  30 
>Ft IK0EN9  .EQ.  1 
I  UO  TO  30 

IF( (NOENO  .SO.  1 
1  S3  TO  30 

OIVNUM  .  BEGNUM  ♦  OELWM*FLflAT(NOtV) 

IFUaStDiVNUM)  .<31,  10.01  DIGITS  «  AL0S><fl*aS{OtVttjM) > 
OIGHS  •  AJNf(0IGITS  »  i. 06-13) 

I»{OtVNUM  .LI.  0.0)  DIGITS  •  DIGITS  ♦  .0 

StJNuy  ,  i DIGITS  *  FLOAT(NUMOEC)  *  i <T)*MEI5hT 
XRIAS  •  -3.8*3I£NUM 
XSIASUO. 

V#|A5I*0. 

iFtN(uRN.EO.O)  60  T9  <i 
Y8l*S1.va)AS“SKRW"0TFST 
IFtN.it  .0jVRlAS»*TSUS*3#F5T 
ARIAS! * A#t AS*Ht i CHt  *0 ■ S 
xPOJ  *  *T It  *  Y8I 4S*SINAN3  *  **|AS*C0S4*a 
C  *Y9USt»S!NANO“«BtASI*CCS*NO 
Y*OS  •  YTIC  •  Y»US*CS5ANG  »  All AS*$tkANG 
C  -AaiAS^SlNAWS-YGiASiAeOSANO 
CAU  NUM£t«{JUO$,  YSfiS.  HEIGH*.  OIvLUM.  THfiTAI  .NUMOEC) 


axl 

390 

AXL 

395 

AXL 

405 

AXL 

410 

AXL 

415 

AXl 

430 

AXL 

425 

axl 

430 

435 

/XL 

44P 

AXL 

445 

AXL 

450 

AXL 

455 

AXL 

460 

AXL 

465 

AXL 

470 

AXL 

475 

AXL 

480 

AXL 

485 

axl 

490 

AXL 

495 

axl 

500 

AXL 

505 

AXL 

510 

AXL 

515 

AXL 

530 

AXL 

529 

AXL 

530 

axl 

535 

AXL 

540 

AXL 

845 

AXL 

550 

axl 

555 

AXL 

500 

AXL 

655 

AXL 

5T0 

axl 

875 

AXL 

510 

AXL 

SIS 

AXL 

S80 

AXL 

595 

AXL 

BOO 

AXL 

805 

axl 

eto 

A»L 

ets 

AXL 

§36 

AXL 

635 

JXL 

AXL 

t» 

All 

840 

*H 

J4* 

ASl 

eso 

AXL 

855 

Ml 

«0 

AXL 

rts 

ML 

AAL 

t'fS 

Ml 

&& 

AXy 

685 

)?S 


«.« s, -j.n  ... 


iF(Siamx  ,lt.  siz^Uk)  si  dux  >  siimjm 

30  continue 
c 
c 

C  WUM  Tic  MARKS 

C 

C 

CAU  PLOTJXTIC  ,  VTJS  ,  3) 

CALI  P10T(XTIC+0XMAU.  YTIC*0XNAO.  9) 

If {NOIV  .EO.  NUMOIV)  00  TO  50 
IF(NUMSUB  .LE.  1)  00  TO  40 

OO  39  J«2,NUNSUB 
SUBLEN  *  SUBOIV«Fl0AT{d-«) 

XST1C  9  XT  I C  ♦  SUBLEN  •  COSANG 
VSTIC  •  YTIC  +  SUBLEN  •  SINANO 
CALL  P LOT | XST IC+DXM1 N t  YSTtC+OYMIN,  3) 

CALL  PLOTfXSTIC.  VSTIC,  3} 

30  CONTINUE 
40  NOIV  •  NOIV  ♦  1 
00  TO  10 
C 

c 

C  ORAM  AXIS 

c 

c 

so  call  PumxYic,  me.  3) 

CALL  PLOT ( X ,  V,  3} 

C 

c 

ft  ORAM  LABEL 

c 

c 

Jfr-SOIKl  ,EQ.  »  .or.  NAB$  .EO.  Q)  RETURN 
XBfiSWO 

V8IASI«-S»iNUN-OffST 
IF(N,LT.0)V8IASI*-Y!IIASI 
If(Mt‘j1iN,EO.O)  Y8!AS1«9 
XBIAS  m  0.6*(S  -  BCOLTN) 

TRIAS  »  (-0.80  *  SISNO.S*,  StONAXI)  *  RCOSSJ 

x»os  *  *  -  ybus»s)na«o  *  xaiAs»co$ANa 
C  ♦Y9IA51«S|N*NO-XBIAS>«eOSANS 
YSOS  *  V  ♦  V«.AS*COSANa  ♦  XSIAS»SINAHO 
C  -XS(AS»»StNAI«“Y81AS>*COS*NQ 
tftf£«scr.nt.j  .0*.  ITtP.O!,*}  CO  TO  69 
|fI»META.eO.O.OS  GO  to  9S 
YROS*YP0'i-0.3TS 

CALL  STVSOLtXPOS.TPffil.OCOSU.aNIRvTNSJA.J) 

Y»OS*V«SS«O.JT» 

M  CONTINUE 

CALL  SVIMWLIXPOS.  TAOS.  6S0SH,  6CO.  t‘(£TAi  NABS) 

If( ThE'A. NE«90. )  GO  to  «0 

IPtHYP.GT.1  ,OR,  tVA*IS.N£.d)  GO  TO  SO 

ANAX»tV*#R 

TPO4»»»CS.0.e« 

X*0L»XPO5-O . 19 

CAU  W*»«S{X^,VIK>S,9.IJSi*HA*,fKfifA.'‘1) 

SO  C0NTIK14 

RETURN 

HO 


AXL 

690 

AXL 

ess 

AXL 

700 

AXL 

70S 

AXL 

7t0 

AXL 

715 

AXL 

730 

AXL 

735 

AXL 

730 

AXL 

735 

AXL 

740 

AXL 

745 

AXL 

750 

AXL 

755 

AXL 

760 

AXL 

765 

AXL 

770 

AXL 

♦75 

AXL 

780 

AXL 

795 

AXL 

790 

AXL 

795 

AXL 

BOO 

AXL 

605 

AXL 

610 

AXL 

BtS 

AXL 

830 

AXL 

B35 

AXL 

830 

AXL 

835 

AXL 

840 

AXL 

845 

AXL 

850 

AXL 

885 

AXL 

860 

AXL 

865 

AXL 

870 

AXL 

8T5 

AXL 

860 

AXL 

865 

AXL 

•90 

AXL 

#95 

AXL 

too 

AXL 

801 

AXL 

903 

AXL 

003 

a*v 

804 

AXL 

80S 

AXL 

096 

AXL 

607 

AXL 

»16 

AXL 

915 

A*l 

930 

AXL 

H) 

AXL 

930 

XXL 

935 

AXL 

*«0 

AXL 

946 

AXL 

*50 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


SUBROUTINE  AXLOG(X,  Y,  BCD,  N,  NUMCYC,  CYCLEN,  BEGEXP,  LAX  100 

1  THETA,  HEIGHT,  NRPT ,  NTURN,  NOENO,  LSUPR,  iTURN)  LAX  105 

LAX  110 
LAX  115 

WRITTEN  BY  RICHARD  L.  TAYLOR  RADC/ET  EEC  NOVEMBER  1980  LAX  120 

LAX  125 
LAX  130 
LAX  135 

ROUTINE  TO  PLOT  A  LABELLED  LOGARITHMIC  AXIS  LAX  140 

LAX  145 
LAX  150 
LAX  155 
LAX  160 

X  AND  Y  ARE  THE  STARTING  COORDINATES  OF  THE  AXIS  RELATIVE  TO  THE  LAX  165 

LAX  170 

CURRENT  ORIGIN  LAX  175 

LAX  180 

BCD  IS  THE  LABEL  OF  THE  AXIS  EXPRESSED  AS  A  HOLLERITH  CONSTANT  LAX  185 

LAX  1  DO 

N  IS  THE  NUMBER  OF  CHARACTERS  IN  THE  LABEL  LAX  195 

LAX  200 

NEGATIVE  N  PLACES  THE  LABEL  ON  THE  CLOCKWISE  SIDE  OF  THE  AXIS  LAX  205 

LAX  210 

POSITIVE  N  PLACES  THE  LABEL  ON  THE  COUNTERCLOCKWISE  SIDE  LAX  215 

LAX  220 

NUMCYC  IS  THE  NUMBER  OF  CYCLES  DESIRED  LAX  225 

LAX  230 

CYCLEN  IS  THE  LENGTH  OF  ONE  CYCLE  IN  INCHES  LAX  235 

LAX  240 

BEGEXP  IS  THE  EXPONENT  FOR  THE  BEGINNING  OF  THE  AXIS  LAX  245 

LAX  250 

THETA  IS  THE  ANGLE  OF  THE  AXIS  IN  DEGREES  (0.0  FOR  X,  90.0  FOR  Y)  LAX  255 

LAX  260 

HEIGHT  IS  THE  HEIGHT  IN  INCHES  OF  THE  TENS  LAX  265 

LAX  270 

NRPT  IS  THE  REPEAT  FACTOR  FOR  THE  SCALE  NUMBERS  (USUALLY  INTEGER  1 )  LAX  275 

LAX  280 

WHEN  NRPT  IS  ZERO  THE  SCALE  NUMBERS  WILL  BE  SUPPRESSED  LAX  285 

LAX  290 

WHEN  NRPT  «  2,  EVERY  2ND  SCALE  NUMBER  WILL  BE  PRODUCED i  LAX  295 

LAX  300 

WHEN  NRPT  «  3,  EVERY  3RD  SCALE  NUMBER  WI1L  BE  PRODUCED;  ETC.  LAX  305 

LAX  310 

NTURN  EQUAL  TO  1  TURNS  THE  AXIS  NUMBERS  BY  90  DEGREES  CLOCKWISE,  LAX  315 

-1  TURNS  NUMBERS  3Y  90  DEGREES  COUNTERCLOCKWISE,  0  FOR  NO  TURNLAX  320 

LAX  325 

NOENO  EQUAL  TO  1  SUPPRESSES  THE  NUMBERS  AT  EITHER  END  OF  THE  AXIS,  LAX  330 

LAX  335 

NOENO  EQUAL  TO  2  SUPPRESSES  ONLY  THE  STARTING  NUMBER,  AND  NOENDLAX  340 

LAX  345 

EQUAL  TO  3  SUPPRESSES  ONLY  THE  ENDING  NUM8ER  LAX  350 

LAX  355 

LSUPR  EQUAL  TO  1  SUPPRESSES  THE  LABEL  LAX  360 

LAX  365 

LTURN  EQUAL  TO  1  TURNS  THE  LABEL  BY  90  DEGREES  CLOCKWISE,  LAX  370 

-1  TURNS  LABEL  BY  90  DEGREES  COUNTERCLOCKWISE,  0  FOR  NO  TURN  LAX  375 

LAX  360 
LAX  385 

COMMON/TITLOC/XPOS,  YPOS  LAX  390 


177 


uoooo 


COMMON  /OXDY/  OX , AOY, PFR6EG, YRMIN, JXAXIS, IYAXIS,PFREND,YRMAX, 

C  ITYP.IYPWR.IEMSCT 

DIMENSION  BCO(1),  SUBDIV(IO),  D1VL0Q(8) 

DATA  OIVLOQ  /  0.301029995664,  0.477121264720,  0.602059891328, 

1  0.698970004336,  6.778181250384,  0.845098040014, 

2  0.903089986992,  0.954242509439/ 

THETA1 •THETA-90 . *NTURN 

PI  •  2.  •  ASIN( 1 . ) 

ANGLE  •  (PI/180.)  *  THETA 
SINANG  •  SIN( ANGLE) 

COSANG  •  COS( ANGLE) 

SIGNAX  «  FLOAT ( ISIGN( 1 ,  N)) 

SI2MAJ  •  0.25  •  HEIGHT  +  0.05 
OFFST»HEIGHT*1;5 

DXMAU  •  -SIZMAJ  •  SINANG  •  SIGNAX 

DYMAJ  «  SIZMAU  •  COSANG  •  SIGNAX 

OXMIN  •  0.5  •  OXMAd 
OYMIN  «  0.5  *  DYMAJ 
ecDSiz  •  i.25  •  height 
ENLARGE  .5 

EX°SIZ  •  0.60  *  HEIGHT  *ENLARG 
NABS  «  IABS(N) 

BCDLEN  >  ( FLOAT (NABS)  -  0.4}  *  BCDSIZ 
S  «  CYCLEN  •  FLOAT (NUMCYC) 

NUMTIC  ■  2  -  MINI (1.0,  C/CLEN) 

NUMLOG  •  8  /  NUMTIC 
XBIAS  •  1 . 85*HEIGHT  »ENLARG 
Y0IAS  •  0.70«HE1GHT  «£NLARG 
6XP3X  •  -YBIAS*S!NANG  +  XBIAS*COSANG 
EXPBY  •  YBI A5*C0SANG  +  XBIAS*SINANG 
IF  (NTURN  .  E0-.  0)  GO  TO  5 
EXPESX  >  XBIAS  *  SINANG  *  YBIAS  •  COSANG 
EXPBY  «  YBIAS  •  SINANG  -  XBIAS  •  COSANQ 
5  DO  10  I  «2 ,  B 

SUEOlV(t)  .  OIVLOGU-1  )»CYCLEN 
10  CONTINUE 

NNUM8  «  NUMCYC  ♦  1 
StZMAX  EXPSI2 
EXP  •  6FGF.XP 
0020  I ■! , NNUMB 
DIGITS  ■  0.0 

IFEABS(EXP)  .GE.  10.0)  DIGITS  •  AL0G10(  ABS(EXP)  ) 

DIGITS  »  AINT(0IGITS  +  1.0F-12)  A.  0.7 
IF(EXP  .IT.  0.0)  DIGITS  •  DIGITS  ♦  1.0 
SIZNUM  *  DIGITS  *  EXPSIZ 
IF(SIZMAX  ,LT.  SIZNUM)  SIZMAX  ■  SIZNUM 
20  EXP  «  EXP  +  1.0 

SIZNUM  •  SIZMAX  +  £.0«NFIQHT 


DRAW  CYCLE  NUMBERS  AND  EXPONENTS 


NCYCLE  •  0 

EXP  •  BEGEXP 

XBIAS  ■  -0.7*HEIQHT 

YBIAS  .  (-0.50  +  SIGN( 1 .25,  SIGNAX))  •  HEIGHT 
XBIAS1«0. 

YBIAS1 *0. 


LAX  391 
LAX  392 
LAX  395 
LAX  400 
LAX  405 
LAX  410 
LAX  415 
LAX  420 
LAX  425 
LAX  430 
LAX  435 
LAX  440 
LAX  445 
LAX  450 
LAX  455 
LAX  460 
LAX  465 
LAX  470 
LAX  475 
LAX  480 
LAX  485 
LAX  490 
LAX  495 
LAX  500 
LAX  505 
LAX  510 
LAX  515 
LAX  520 
LAX  525 
LAX  530 
LAX  535 
LAX  540 
LAX  545 
LAX  550 
LAX  555 
LAX  560 
LAX  565 
LAX  870 
LAX  575 
LAX  580 
LAX  585 
LAX  590 
LAX  595 
LAX  600 
LAX  605 
LAX  610 
LAX  615 
LAX  620 
LAX  625 
LAX  630 
LAX  636 
LAX  640 
LAX  645 
LAX  660 
LAX  65S 
LAX  660 
LAX  6f.(i 
LAX  670 
LAX  876 


178 


IF(NTURN.EQ.O)  GO  TO  25 

LAX 

680 

XBIAS1*XBIAS+HEIGHT»O.S 

LAX 

685 

Y8IAS1»YBIAS1-OFFST-SIZNUM 

LAX 

690 

JF(N.IT.O)  YBIAS1  -  YBIAS+OFFST 

LAX 

6S5 

as 

TENBX  -  -YBIAS*SINAMG  +  X6IAS*C0SANG 

LAX 

700 

C  +YBIAS1»SINANG  -  XBIA51 *CQSAMG 

LAX 

705 

TENBY  .  Y81AS*C0SANG  +  XB!AS»SINANG 

LAX 

7t0 

C  -YBIAS1 •COSANG  -X8IAS1 »SINANG 

LAX 

715 

30  XTIC  «  X  +  FLOAT (NCYCLE)*CYCLEN*COSANG 

LAX 

720 

YTIC  •  Y  +  FLOAT (NCYCLE)*CYCLEN*SINANG 

LAX 

725 

IF(NRPT  .EO.  0)  GO  TO  40 

LAX 

730 

NSUPR  •  NCYCLE  -  (NCYCLE/NRPT) »NRPT 

LAX 

735 

IF(NSUPR  ,NE.  0)  GO  TO  40 

LAX 

740 

IF( (NOEND  .EO.  1  .OR.  NOEND  .EO-  2)  .AND.  NCYCLE  .EQ. 

0) 

LAX 

745 

1  GO  TO  40 

LAX 

750 

IF( (NOEND  .EO.  1  .OR.  NQEND  .EO.  3)  .AND.  NCYCLE  .EO. 

NUMCYC) 

LAX 

753 

1  GO  TO  40 

LAX 

760 

XPOS  •  XTIC  ♦  TENBX 

LAX 

765 

YPOS  •  YTIC  +  TENBY 

LAX 

770 

CALL  SYMBOL! XPOS .  YPOS,  HEIGHT,  2H10,  THETA1 ,  2) 

LAX 

775 

CALL  NUMBER((XPOS+EXPBX) ,  {VPOSyEXPBY) ,  IXPSI2,  EXP,  THETA1 ,  -t) 

LAX 

780 

40  CONTINUE 

LAX 

785 

c 

LAX 

790 

c 

LAX 

795 

c 

DRAW  TIC  MARKS 

LAX 

800 

c 

LAX 

80S 

c 

LAX 

810 

CALL  PL0T(XTIC  ,  YTIC  ,  3) 

LAX 

815 

CALL  PLOT ( XTIC+DXMAJ ,  YTIC+DYMAJ,  2) 

LAX 

820 

IF(NCYCLE  .EO.  NUMCYC)  GO  TO  70 

LAX 

825 

1F(NRPT  .LT.  0)  GO  TO  60 

LAX 

830 

00  50  1L0G-1 .NUMLOG 

LAX 

835 

i  »  ILOG«NUMTIC  +  1/NUMTIC 

LAX 

840 

XLOG  •  XTIC  +  SUBOI V ( I ) •COSANG 

LAX 

845 

YLOG  •  YTIC  +  SUBPIVt I )*SINANG 

LAX 

850 

CALL  PLOTtXLOG+DXMIN,  YLOG+DYMIN,  3) 

LAX 

858 

CALL  PLOT(XLOO,  YLOG,  2) 

LAX 

860 

50  CONTINUE 

LAX 

865 

60  NCYCLE  •  NCYCLE  ♦  1 

LAX 

870 

EXP  •  EXP  ♦  1.0 

LAX 

875 

GO  TO  30 

LAX 

880 

c 

LAX 

885 

c 

LAX 

890 

c 

DRAW  AXIS 

LAX 

895 

c 

LAX 

900 

c 

LAX 

905 

70  CALL  PLOT {XTIC,  YTIC,  3) 

LAX 

910 

CALL  PLOT(X,  Y.  2) 

LAX 

915 

c 

LAX 

920 

c 

LAX 

925 

c 

DRAW  LABEL 

LAX 

830 

c 

LAX 

935 

c 

LAX 

940 

IF( LSUPR  , EQ.  1  .OR.  NA8S  ,EQ.  0)  RETURN 

LAX 

945 

XBIAS  •  0. 5*($  -  BCDLEN) 

LAX 

950 

YBIAS  «  (-0.50  +  SIGN! 3. 25.  SIGNAX))  *  BCOSIZ 

LAX 

965 

THETAS  •  THETA  •  #0.  •  LTURN 

LAX 

960 

X8IAS2-0, 

LAX 

965 

0FFST-HEIGHT*2.S 

l*X 

870 

YBIAS2.  -SUNUM-OFFST 

ux 

975 

IF  (N  .LT,  0)  Y81AS2»0FFST 

LAX 

980 

IF  (LTURN  .EO.  0)  GO  TO  80 

LAX 

985 

XBIAS2  .  XBIAS  "0 . 6* ( S-HEIGHT ) 

LAX 

990 

80  XPOS  •  X  -  YUIAS*SINANG  ♦  X8IA5*C0SANQ 

LAX 

995 

C  +YBIAS2»SINAN0  -  XBIAS2»C0SANG 

LAX 

1000 

YPOS  •  Y  +  YBIAS*COSANG  +  XBIAS«SINANO 

LAX 

1005 

C  -YB!AS2*C0SANG  -XBIAS2*SINANG 

LAX 

1010 

IF( 1EMSCT.NE.3  .OR.  ITYP.GT.t)  GO  TO  SB 

LAX 

1011 

IF(THETA.EO.O.O)  GO  TO  85 

LAX 

1012 

YPOS.YPOS-0.375 

LAX 

1013 

IF(N.ir.O)  CALL  SYMBOL! ( XPOS+0 . 6) . YPOS , BCOSIZ, 2HIR ,THETA2 . 

2) 

LAX 

1014 

IF(N.GT.O)  CALL  SYMBOL(XPOS, YPOS , BCOSIZ, 2HIR.THETA2, 2) 

LAX 

1015 

YPOS. YPOS+O. 375 

LAX 

1016 

BS  CON’INUE 

LAX 

1017 

IF(N.LT.O)  CALL  SYMBOL! (XPOS+O . 5) , YPOS , BCOSIZ, BCD, THETA2 , NABS) 

LAX 

1018 

IF(N.QT.O)  CALL  SYMBOUXPOS,  YPOS,  BCOSIZ,  SCO,  THETA2,  NABS) 

LAX 

1020 

RETURN 

LAX 

1025 

END 

LAX 

1030 

1  ?o 

1  «  V 


SUBROUTINE  DRAW! x , Y , NP T , I CURVE )  DRW 

C  DRAWS  DIFFERENT  KINDS  OF  CURVES  FOR  V  VS  X  DRW 

C  DRW 

C  X  «  XARRAY  TO  BE  PLOTTED  DRW 

C  Y  «  YARRAY  TO  BE  PLOTTED  DRW 

C  NPT  *  NUMBER  OF  POINTS  TO  BE  PLOTTED  DRW 

C  I CURVE  INDICATES  THE  TYPE  OF  CURVE  DRAWN  DRW 

C  I CURVE  *  1  SOLID  LINE  WITHOUT  SYMBOLS  DRW 

C  ICURVE  *  2  DASHED  LINE  WITHOUT  SYMBOLS  DRW 

C  ICURVE  «  3  OOTTEO  LINE  WITHOUT  SYMBOLS  ORW 

C  ICURVE  =  4  ALTERNATING  DASHES  4  DOTS  WITHOUT  SYMBOLS  DRW 

C  ICURVE  <■  5  ALTERNATING  DASHES  i  2  DOTS  WITHOUT  SYMBOLS  DRW 

C  ICURVE  «  6  TO  10  SAME  AS  1  TO  B  WITH  SYMBOLS  AT  EVERY  POINT  ORW 

C  THE  SYMBOL  CHOSEN  IN  THIS  PROGRAM  IS  NO.  2  OF  ORW 

C  THE  LIST  OF  SYMBOLS  AVAILABLE  IN  THE  CALCQMP  SYSTEM  DRW 

C  ICURVE  .GT.  10  ALTERNATING  DASHES  OF  DIFFERENT  LENGTHS  DRW 

C  (THE  ONES'  DIGIT ) *0. 1  INCHES  WITH  (THE  TENS'  DIG!T)«0.1  INCDRW 

C  ICURVE  .LT.  0  DATA  POINTS  ONLY,  WITH  ABS(ICURVE)  ■  SYMBOL  NUMBDRW 

C  DRW 

COMMON  /DXOY/  DX.OY,  XMIN.YMIN,  LOGLNX, LOGLNY,  XMAXVL, YMAXVL  DRW 

DIMENSION  X(NPT) ,  Y(NPT),  XT ( TOO) ,  YT(100)  DRW 

DATA  KSYM,  d,  SIZ/2,  1.  0.05/  DRW 

KT  ■  KSYM  DRW 

IF( ICURVE  .LE.  -1)  KT  «  -ICURVE  DRW 

CCC  DRW 

CCC  IF  ICURVE  IS  INPUT  AS  0  RESET  TO  1  TO  PLOT  LINE  ORW 

CCC  ORW 

IF( ICURVE. EQ.O)  ICURVE«1  DRW 

C  PLOT  THE  X,  Y  PAIRS  IN  GROUPS  OF  100  POINTS  DRW 

NEXT  •  1  DRW 

5  LAST  «  NEXT  +  99  DRW 

IF( LAST  .LE.  NPT)  N  »  100  DRW 

IFfLAST  .GT.  NPT)  N  «  NPT  -  NEXT  ♦  1  DRW 

IF( LAST  .GT.  NPT)  LAST  »  NPT  DRW 

C  DRW 

00  10  M  .  NEXT, LAST  DRW 

I  .  M  +  1  -  NEXT  ORW 

C  IF  DOING  LOG  OR  SEMI-LOG  PLOT  -  CONVERT  X  AND/OR  Y  TO  LOG(X)  DRW 

IF(  LOGLNX  , EO .  0)  XT ( I )  ■  X(M)  DRW 

IF(  LOGLNX  .EQ.  1  .AND.  X(M)  .GT.  0.)  XT ( I )  .  ALOG10(X(M))  DRW 

IF(  LOGLNX  . EO.  1  .AND.  X(M)  .LE.  0.)  XT(I)  .  XM1N  DRW 

IF(  LOGLNY  .EQ.  0)  YT(I)  ■  Y(M)  DRW 

IF(  LOGLNY  .EO.  1  AND.  Y(M)  .GT.  0.)  YT(t)  ■  AL0G10(Y(M))  DRW 

!F(  LOGLNY  . EQ.  1  .ANO.  Y(M)  .LE.  0.)  YT ( I )  »  YMIN  DRW 

C  &  IF  X  OR  Y  OUTSIDE  OF  PLOT  FORCE  TO  NEAREST  EDGE  OF  PLOT  DRW 

IF( XT ( l )  . LT .  XMIN)  XT(I)  «  XMIN  DRW 

IF(XT ( I )  .GT.  XMAXVL)  XT(I)  .  XMAXVL  ORW 

IF(YT(I)  .GT.  YMAXVL  )  YT(1)  •  YMAXVL  DRW 

IF( YT ( I )  .LT.  YMIN  )  YT ( I )  ■  YMIN  DRW 

10  CONTINUE  ORW 

C  CHOOSE  TYPE  OF  CURVE  PLOTTED  DEPENDING  ON  ICURVE  DRW 

IF( ICURVE  . LE.-1 )  CALL  LINE  (XT , YT ,N, 1 .-1 , KT , XMIN ,DX, YMIN, DY , SIZ)  ORW 
IF( ICURVE  .EQ.  1)  CALL  LINE  (XT , YT ,N, 1 ,0 . KT.XMIN ,DX, YMIN ,DY , .06)  DRW 
IP( ICURVE  . EO.  2JCALL  0ASH2( XT , YT, N , 1 , O.KT , XMIN, DX , YMIN, DY .. 1 , 1 , 1 )DRW 
!P( ICURVE  ,EQ.  3)  CALL  OOT ( XT , YT ,N, 1 ,0 , KT ,XMIN ,DX, YMIN.DY , .08)  DRW 


IF( ICURVE  .EO.  4JCALL  DSHDOT(XT , YT ,N, 1 ,0 ,KT .XMIN.DX, YMIN ,DY , .08)  DRW 
IF( ICURVE  .EO.  5) CALL  0SHDT2(XT , YT ,N , 1 .0 . KT .XMIN, DX, YMIN.OY , .00)  ORW 
IF( ICURVE  , EQ.  6)  CALL  L1NE(XT ,YT,N , 1 , J, KT.XMIN , DX , YMIN.OY ,  SIZ)  DRW 
IF( ICURVE  . EQ.7JCALL  OASH2( XT ,YT,N, 1 ,d,KT . XMIN ,DX, YMIN.DY , SIZ. 1 . 1  mow 
IF( ICURVE  .EO.  8)  CALL  DOT ( XT , YT ,N. 1 ,d,KT , XMIN, OX, YMIN ,DY,  SIZ)  ORW 
IF( (CURVE  .EO.  9 )CALL  DSHDOT (XT ,YT ,N, 1 , d ,KT .XMIN.DX, YMIN.DY .  SIZ)  DRW 
IF( ICURVE  .EQ.  10) CAL L  0SHDT2(XT ,YT , N , 1 , d , KT , XMIN , DX, YMIN.DY, SIZ)  DRW 


IF( ICURVE  .LE.  10)  GO  TO  20  DRW 

C  FOR  ICURVE  .OT.  10,  DETERMINE  LENGTH  OF  DASHES  ORW 

LDASH1  «  1  CURVE/10  DRW 

LDASH2  ■  1CURVE-10*L0ASH1  DRW 

CALL  DASH2(XT,YT,N, 1,0,0, XMIN, DX.YMIN.DY.. 00, LDASH1 , L0ASH2 )  ORW 

20  CONTINUE  DRW 

NEXT  a  LAST  DRW 

!F( LAST  .LT.  NPT)  00  TO  6  ORW 

C  ORW 

RETURN  ORW 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

385 


380 

385 

380 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 


END 


DRW  450 


SUBROUTINE  OOT(X,V,N,K. NUMSYM, JSYM,XMIN,DX,VMIN,OY,SYMSZE) 

DT 

100 

ccc 

DT 

105 

ccc 

DRAWS  A  DOTTED  LINE 

OT 

110 

ccc 

DT 

115 

DIMENSION  X(N) ,Y(N) ,XD(200) , YD(200) 

DT 

120 

COMMON/XXDYYD/XD , YD 

DT 

125 

DATA  !SYM8,NUMD0T  ,DOTSIZ  ,D0TLEN/5,  -1,  0.03,  0.09/ 

OT 

130 

IF  (NUMSYM  .LT.  0)  GO  TO  3S0 

DT 

135 

XDOT  «  OX  »  DOTLEN 

DT 

140 

YDOT  »  OY  *  DOTLEN 

OT 

145 

RES  ID  «  DOTLEN 

DT 

130 

MB  •  K+l 

DT 

155 

00  200  I  •  MB.N.K 

DT 

160 

XL£N  .  (X(I)-X(I-K))/DX 

DT 

165 

YLEN  .  (Y(I)  *  Y(I-K))/DY 

DT 

170 

SLEN  •  SORT ( XLEN  **2  +  YLEN  »»2) 

DT 

175 

IF( SLEN  .IE.  0.)  GO  TO  300 

DT 

180 

TLEN  «  SLEN  ♦  RESID 

% 

185 

NDOT  »  0 

OT 

190 

IF  (  TLEN  .LT.  OOTLEN  )  GO  TO  150 

OT 

195 

NDOT  .  INT(TLEN  /  DOTLEN) 

DT 

200 

XSTEP  «  XDOT  «  XLEN/SLEN 

OT 

205 

YSTEP  «  YOOT  »  YLEN/SLEN 

DT 

210 

S3  -  1,  -  RESID/OOTLEN 

DT 

215 

YOC 1 )  ■  SS  »  YSTEP  +  Y(I-K) 

DT 

220 

XD(1)  *  SS  *  XSTEP  +  X(I-K) 

DT 

225 

IF  (  NDOT  . LT.  2  )  GO  TO  20 

DT 

230 

DO  10  J  •  2.NOO* 

DT 

235 

XD(J)  «  XO(U-I)  +  XSTEP 

OT 

240 

Y0( U )  «  YO(U-I)  ♦  YSTEP 

DT 

245 

10 

CONTINUE 

DT 

250 

30 

CONTINUE 

DT 

255 

CALL  LINE  (XO.YO.NDOT.I.NUMOOT.ISYMB.XMIN.DX.VMIN.DV.DOTSIZ) 

DT 

260 

160 

RESID  »  TLEN  -  NDOT  •  OOTLEN 

DT 

265 

300 

CONTINUE 

OT 

270 

350 

continue 

OT 

275 

I F ( NUMSYM  .EO.  0)  GO  TO  300 

DT 

260 

I F ( NUMSYM  .LT.  0)  NUMSYM  •  UBS(NUMSYM) 

DT 

285 

DO  40  MN  ■  1,N .NUMSYM 

CALL  SYMBOL)  (X(HN)-XMIN)/OX,(Y(MN)-YMIN)/OY.SYMSZE,USVM.0. 0,-1) 

DT 

290 

DT 

295 

40 

CONTINUE 

DT 

300 

300 

continue 

DT 

305 

RETURN 

DT 

310 

END 

DT 

315 

SUBROUTINE  DSHDT3(X.Y>N,K .NUMSYM, JSYM,XMIN,DX.YMIN|OY ,SYMS2E) 

CCC  DRAWS  A  LINE  WITH  ALTERNATING  DASH  AND  3  DOTS 
CCC 

DIMENSION  X(N),Y(N),XO(3OO),YD(360) 

COMMON/XXOYYD/XO.YO 
DATA  DOTLEN/0.09/ 

KPT  •  0 

IF  (NUMSYM  .LT.  0)  00  TO  350 

XDOT  •  OX  •  DOTLEN 

YDOT  *  OY  «  DOTLEN 

RES ID  •  DOTLEN 

MS  •  K+1 

DO  300  I  •  MB.N.K 

XLEN  •  (X( I )-X( I-K) )/DX 

YLEN  -  <Y(I)  -  Y(I-K))/DY 

SLEN  •  SORT (XLEN  *«3  +  YLEN  **3) 

IF(SLEN  .LE.  0.)  00  TO  300 
TLEN  ■  SLEN  +  RESID 
NDOT  •<  0 

IF  (  TLEN  .LT.  DOTLEN  )  00  TO  ISO 
NDOT  »  INT(TLEN  /  DOTLEN) 

XSTEP  ■  XOOT  •  XLEN/ SLEN 
YSTEP  «  YDOT  •  YLEN/SLEN 
SS  ■  1.  -  RESID/DOTLEN 
YD(1)  «  SS  •  YSTEP  ♦  Y(I-K) 

X0(1)  •  SS  *  XSTEP  ♦  X(I-K) 

IF  (  NDOT  .LT.  3  )  00  TO  30 
DO  10  d  •  2. NDOT 
XO(J)  ■  XD(J-I)  +  XSTEP 
YD(J)  •  YD(J-I)  ♦  YSTEP 
10  CONTINUE 
30  CONTINUE 

DO  30  L  ■  1 ,NDOT 
KPT  •  KPT  ♦  1 

IF(KPT  .EO.  1)  CALL  PLOT((XD<L)-XMIN)/OX,(YD(L)-YMIN)/DY,3) 
IF(KPT  ,E0.  6)  CALL  PL0T{ (XD( L)-XMIN)/DX, ( Y0( L)-YMIN)/0Y,3) 
IF(KPT  .EO.  6) 

♦CALL  SYMBOL ( (XD( L)~XM1N)/DX, (YD(L)~YMIN)/DY , .03 ,5, 0. 0 ,-t ) 

IF(KPT  .EO.  7) 

♦CALL  SYMBOL(<XD(L)-XMIN)/OX,(YD(L)-YMIN)/DY..03,5,0.0,-1) 

IF ( KPT  ,EQ.  7)  KPT  «  0 
JO  CONTINUE 

IF1KPT  ,QE.  1  .AND.  KPT  .LE.4) 

♦CALL  PLOT((X(l)-XMIN)/DX,(Y(I)-YMIN)/OY.3) 

150  RES  JO  >  TLEN  -  NDOT  »  OOTLEN 
200  CONTINUE 
250  CONTINUE 

1F( NUMSYM  . EO.  0)  GO  TO  300 

IF( NUMSYM  .LT.  0)  NUMSYM  •  lABS(NUMSYM) 

00  40  UN  •  1.N, NUMSYM 

CALL  SYMBOL ( (X(MN)-XM1N)/DX i ( Y(MN)-YMIN)/OY .SYMSZE, JSYM.O. 0,-1 ) 
40  CONTINUE 
300  CONTINUE 
RETURN 
END 


002 

100 

0D3 

105 

DD3 

110 

0D2 

115 

DD2 

130 

0D2 

135 

002 

130 

002 

135 

DD2 

140 

0D3 

145 

DD2 

ISO 

DD2 

155 

003 

160 

003 

165 

002 

170 

DD2 

175 

DD2 

180 

002 

185 

003 

193 

DD2 

195 

DOS 

300 

D03 

305 

DD2 

310 

DD2 

215 

0D2 

330 

D02 

335 

003 

230 

DD2 

235 

003 

340 

002 

245 

0D2 

350 

003 

355 

002 

360 

003 

365 

002 

370 

002 

375 

0D2 

360 

002 

2B5 

DD3 

390 

DOS 

395 

002 

300 

003 

305 

DOS 

310 

002 

315 

DOS 

330 

002 

325 

0D2 

330 

DOS 

335 

003 

340 

003 

345 

0D3 

350 

002 

355 

002 

380 

DD2 

365 

DD2 

370 

003 

375 

182 


SUBROUTINE  DSHOOT(X,Y,N,K,NUMSYM,JSYM,XMIN,DX, YMIN.OY.SYMSZE) 

ccc 

CCC  DRAWS  A  I.INE  WITH  ALTERNATING  DASHES  AND  DOTS 
CCC 

DIMENSION  X(N),Y(N),XD(200),Y9(300) 

COMMON/XXDYYD/XD , YD 
DATA  DOTLEN/0.09/ 

KPT  ■  0 

IF  (NUMSYM  .IT.  0)  GO  TO  350 
XDOT  .  OX  ♦  OOTLEN 
YDOT  •  OY  *  OOTLEN 
RESID  «  OOTLEN 
MS  •  K+1 

DO  200  I  *  MB.N.K 

XLEN  «  (X(I)-X(I-K))/OX 

YLEN  •  (Y(I)  -  Y(I-K))/OY 

SLEN  •  SORT (XLEN  <*3  +  YLEN  *«2) 

IF( SLEN  .LE.  0.)  GO  TO  300 
TLEN  •  SLEN  ♦  RESID 
NDOT  »  0 

IF  (  TLEN  .LT,  OOTLEN  )  GO  TO  ISO 
NDOT  •  INT(TLEN  /  DOTLEN) 

XSTEP  ■  XDOT  «  XLEN/SLEN 
YSTEP  ■  YOOT  •  YLEN/SLEN 
SS  ■  1.  -  RESIO/DOTLEN 
YD( 1 )  *  SS  *  YSTEP  ♦  Y(I-K) 

XD(1)  •  SS  *  XSTEP  ♦  X(I-K) 

IF  <  NDOT  .LT.  3  )  GO  TO  30 
00  10  J  •  3, NDOT 
XD(J)  »  XD(U-I)  +  XSTEP 
Y0(d)  ■  YD(U-I)  ♦  YSTEP 
10  CONTINUE 
30  CONTINUE 

DO  30  L  •  1.NOOT 
KPT  •  KPT  ♦  1 

IF l KPT  .EQ.  1)  CALL  PL0T((X0(L)-XMIN)/DX,(YD(L)-YMIN)/DYI3) 

I F ( KPT  ,E0.  3)  CALL  PLOT( (XDt L)-XMIN)/DX. (Y0( L)-YMINJ/0Y,3) 

IF (KPT  .EQ,  A) 

♦CALL  SYMBOL! (X0<L)-XMIN)/DX,{Y0(1)-YMIN)/DY,. 03, S.O. 0,-1) 

IF1KP1  >EQ.  A)  KPT  ■  0 
SO  CONTINUE 

I  Ft  KPT  , GE •  1  .AND.  KPT  .LE.3) 

♦CALL  PL0T((X(I)-XMIN)/0X,(Y(i)-YMIN)/0Y,3) 

ISO  RESID  «  TLEN  -  NDOT  ♦  DOTLEN 
300  CONTINUE 
360  CONTINUE 

IF (NUMSYM  .EQ.  0)  GO  TO  300 
I F( NUMSYM  .LT.  0)  NUMSYM  ■  lABS(NUMSYM) 

00  AO  MN  •  1.N, NUMSYM 

CALL  SYM30L<(X(MN)-XMIN)/0X,(Y(MN)-YMlN)/DY,SYMSE£,JSYM,0.0.-1) 
AO  CQNT INUF. 

300  CON  r  INUE 
RETURN 
END 


DHD  100 
DHO  105 
DHD  110 
DHD  115 
DHD  130 
OHO  13B 
OHO  130 
DHD  135 
DHD  1 AO 
DHD  145 
OHD  150 
DHD  155 
OHD  160 
DHD  165 
DHD  170 
OHD  175 
DHD  1B0 
DHO  185 
OHD  ISO 
DHD  195 
OHD  300 
DHO  305 
DHD  310 
DHD  31S 
DHD  330 
DHD  335 
DHD  230 
OHD  235 
OHD  340 
DHD  245 
OHD  250 
DHD  355 
DHO  360 
OHD  363 
OHO  370 
OHO  375 
OHO  280 
DHO  285 
OHO  390 
OHD  395 
OHD  300 
OHD  308 
OHO  310 
DHO  315 
OHD  330 
OHD  335 
OHO  330 
OHD  335 
OHO  340 
DHO  345 
OHO  350 
OMO  339 
OHD  380 
OHO  385 


\T 
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SUBROUTINE  DASH2(X,Y,N,K, NUMSYM, usym,xmin,ox,ymin,oy,symsze. 

DH2 

100 

FLDASHI , LDASH2) 

DH2 

105 

cce 

0H2 

110 

ccc 

VARIABLE  LENGTH  DASH  ROUTINE 

0H2 

119 

ccc 

DH2 

120 

DIMENSION  X'N) , V(N) .X0{200) , YD(200) 

DH2 

129 

common/xxdyyd/xo.yo 

0H2 

130 

DATA  D0TLEN/0.1/ 

DH2 

135 

KPT  =  0 

DH2 

140 

IF  (NUMSYM  .LT.  0)  GO  TO  260 

DH2 

149 

Ml  *  1  +  LDASH1 

0H2 

150 

MS2  *  Ml  +  1 

DH2 

155 

M2  •  MS2  +  L0ASH2 

DH2 

160 

XOOT  b  DX  •  DOTLEN 

0H2 

195 

YDOT  •  DY  •  OOTLEN 

0H2 

170 

RESIO  •  DOTLEN 

0H2 

175 

MB  >  K+1 

DH2 

160 

DO  200  I  »  MB , N , K 

DH2 

169 

XLEN  b  (X(t)-X<I-K))/0X 

DH2 

190 

YLEN  •  (Y(!)  -  Y(I-K))/DY 

DH2 

195 

SLEN  .  SQRT(XL£N  **a  +  YLEN  b«2) 

0H3 

200 

IFfSLEN  .LE.  0.)  GO  TO  200 

DH2 

205 

TLEN  •  SLEN  +  RESIO 

o*;a 

210 

NDQT  b  0 

0.12 

215 

IF  (  TLEN  .LT.  DOTLEN  )  GO  TO  190 

OH  2 

220 

NDQT  a  INT (TLEN  /  DOTLEN) 

0H2 

225 

XSTEP  •  XOOT  *  XLEN/SLEN 

OH  2 

230 

YSTEP  a  YDOT  •  YLEN/SLEN 

OH  2 

235 

SS  •  1.  -  resio/ootlen 

DM2 

240 

Y0( 1 )  ■  SS  *  YSTEP  *  Y(I“K) 

DH2 

245 

X0( 1 )  •  SS  •  XSTEP  +  X< I-K) 

0M2 

250 

IF  (  NOOT  .LT.  2  )  GO  TO  20 

0H2 

255 

DO  10  J  •  2, NOOT 

DH2 

280 

XD( J)  a  XQ(J-1 )  +  XSTEP 

DM2 

265 

YP(U)  b  YD(J-I)  ♦  YSTEP 

DM2 

270 

10 

CONTINUE 

OH  2 

275 

30 

CONTINUE 

OH  2 

360 

00  30  L  b  l.NOOT 

DM2 

269 

KPT  b  HPT  *  1 

DM3 

290 

I F ( KPT  .EQ.  1)  CALL.  PLOT ( ( XD( LJ-XM1N )/0X , (Y0( L)-YMIN)/PY ,3) 

DM3 

295 

IF(KPT  ,EQ..VM1)  CALL  PLOT ( ( X0{ L)-XMIN)/OX .  tYO(  L)-YMIN)/DY .8) 

DM2 

300 

IF ( KPT  .EG.  MS2)  CALL  PLOT((XD(L)-XMIN)/OX,(YD(L)-YM1N)/DY,3) 

0H3 

305 

IF(K»T  .EO.  M2  )  CALL  PL0TUXD<L)-XMIN)/DX,(Y0{l)-YMIM)/0Y,2) 

OH  2 

310 

IF(KPT  .EQ.  M2)  KPT  b  0 

DM2 

319 

30 

CONTINUE 

0H2 

320 

I F 1  KPT  .GE.  1  .AND.  KPT  .LT,  Ml) 

DM2 

325 

♦CALL  PLOT((X<l)-XMlN)/OX,(YU)-YMlN)/DY,a) 

0M2 

330 

IF1KPT  .QE.  MSa  .AND.  KPT  .IT,  M3) 

OH  2 

335 

♦CALL  PlOT((X(n-XM!N)/OX,{Y<I)-YMlN)/OY,a) 

0M2 

340 

ISO 

RESIO  b  TLEN  -  NOOT  «  OOTLEN 

0M2 

345 

aoo  CONTINUE 

DM2 

390 

aso 

CONTINUE 

0H2 

399 

I F ( NUMSYM  ,£Q.  0)  GO  TO  300 

DM2 

360 

I F( NUMSYM  .LT,  0)  NUMSYM  «  IADS (NUMSYM) 

0H2 

369 

DO  AO  MN  b  1,N, NUMSYM 

CALL  SYMBQL((X<MN)-XMlN}/OX,(Y(MN)-YMtN)/OY,SYMSte,JSYII,0.0.-1) 

0M2 

370 

0M2 

379 

AO 

CONTINUE 

DH2 

390 

300 

CONTINUE 

0M3 

395 

RETURN 

0H2 

390 

END 

SH2 

399 

184 


Table  9.  Description  of  LOWTRAN  Filter  Programs  Subroutines 


LOWFIL 

WAVEN 

BRACK 

INTLOG 

BIGFIL 

INTRAD 

BLKBDY 

INTGRT 

COMBT 


Page 

No. 

MAIN  DRIVER  PROGRAM.  READS  CONTROL 

CARDS  AND  TAPE7  OUTPUT  FROM  LOWTRAN.  188 

CHANGES  A  SYSTEM  RESPONSE  FUNCTION 

VS  WAVELENGTH  (pm)  TO  A  RESPONSE 

FUNCTION  VS  WAVENUMBER  (CM-1)  195 

FINDS  THE  LOWTRAN  WAVENUMBERS, 

WHICH  BRACKET  THE  SYSTEM  RESPONSE 
FUNCTION.  196 

INTERPOLATES  A  PAIR  OF  VECTORS 
F(I)  =  f(xA,  AND  XtD  =  X,,  i  =  1,  2, ...  N, 

TO  A  NEW  SET  OF  COORDINATES 
FNEW  (J)  =  f(xl)  &  XNEW  (J)  =  x' 

j  =  1,2,...M.  J  195 

ROUTINE  TO  FIND  THE  MAXIMUM  VALUE 

OF  THE  SYSTEM  RESPONSE  FUNCTIONS.  194 

INTEGRATES  THE  EMITTED  OR  SCATTERED 

RADIANCE  FROM  LOWTRAN  TIMES  THE 

SYSTEM  RESPONSE  FUNCTION.  194 

WEIGHTS  THE  SYSTEM  RESPONSE  FUNCTION 

BY  A  BLACKBODY  RADIANCE.  196 

FINDS  THE  AVERAGE  VALUE  OF  THE 
TRANSMITTANCE  FROM  LOWTRAN  WEIGHTED 
BY  THE  SYSTEM  RESPONSE  FUNCTION.  194 

FINDS  THE  WEIGHTED  AVERAGE  TRANSMITTANCE 
DUE  TO  WATER  VAPOR  (BOTH  BAND-TYPE  AND 
CONTINUUM  COMBINED)  AND  ALL  THE  OTHER 
GASES  COMBINED.  196 


Table  10.  Listing  of  LOWTRAN  6  Filter  Function  Code 


Pages  187  to  196 


187 


P"?-V'OUS 

•s  BLANK 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 


PROGRAM  LOWFI l(  INPUT  .OUTPUT ,  TAPES*  INPUT ,  TAPE6*0UTPUT ,  TAPI7 ) 
LOWTRAN  6  FILTER  FUNCTION  PROGRAM 

program  written  by 

ERIC  P  SHETTIE  OPA/AFGL 
JOHN  0  WISE  OPA/AFGL 

LEONARD  W  ABREU  OPI/aFGL 


— FILTER  FUNCTION  CONTROL  INPUTS - - — 

1.)  CARO  1  NF.NEW.IFT. TEMP, IPRINT, NLOW  (315,  F10.3,  315) 

NF  .  NUMBER  OF  FILTERS  (15) 

IF  NF  >  0  READ  IN  NF  FILTERS  (NFOIB) 

IF  NF  •  0  USE  PRECEDING  FILTERS  AND  LOWTRANOUTPUT.  WITH 
OPTION  TO  CHANGE  BLACKBOOY  TEMPERATURE. 

IF(NF  <  0)  STOP  FILTER  PROGRAM 
NEW  *  OPTION  TO  USE  SAME  LOWTRAN  DATA  SET  FOR  NEAT  FILTER— 
0*NO,  t*YE$— REWINDS  LOWTRAN  FILE  (15) 

I FT  •  OPTION  TQ  ENTER  BLACKBOOY  TEMPERATURE 
0*NO  BLACKBOOY ,  1-FOLO  IN  BLACKBOOY  TEMPERATURE  (IS) 

TEMP  ■  BLACKBOOY  TEMPERATURE  IN  OEGREES  KELVIN  (F10.3) 
IPRINT  •  DATA  PRINT  CONTROL  (15) 

IF  IPRlNTp.10,  PRINT  LOWTRAN  TRanSMI TT ANCES  ANO  INFO 
BELOW 

IF  1PRINT>*5,  PRINT  FILTER  FUNCTION  WITH  BLACKBOOY 
FUNCTION  FOLDED  IN. 

IF  IPRINT^.  ONLY  PRINT  FINAL  TRANSMJTT ANCES. 

NLOW  «  NUMBER  of  LOWTRAN  FILES  TO  BE  READ  (IS) 

REPEAT  CAROS  3  AND  3  NF  TIMES 
a.)  CARO  a  IDFIL.HODE.IFWV.NW  (3*10.  3(5) 

IOFJL  <  FILTER  lOENTIFICATlON  (3A10) 

KOOE  •  FILTER  NUMBER  (15) 

IFWV  »  OPTION  TO  CONVERT  FROM  WAVELENGTH  TO  WAVENUMBER— 
0*YES,  t*NC>  (IS) 

NW  *  NUMBER  OF  WAVELENGTHS  FOR  TH{  FILTER  (15)  (NWC.OQ) 


FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

Fit 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 

FIL 


3.)  CARO  3  (WAVE(l),  FFtl).  1.1  ,NW)  (FREE  FORMAT— AS  MANY  CAROS 
AS  NEtOEO  for  NW  WAVELENGTHS) 

WAVE  •  WAVELENGTH  OR  WAVENUMBER 
FF  y  CORRESPONDING  FILTER  FUNCTION 

program  assumes  filter  function  inputs  are  on  tapes  ano 

LOWTRANOUTPUT  FILES  ARE  OH  TAPET. 


OlRCNStON  IVP(IS).  tVLMS).  VF(IS).  NVLt  IS) 

DIMENSION  BIGF( IS) <  TRR0N019, tS) 

OINENSIGH  lOFU(S.IS).  HKJCtlS).  IFWV(IS) 

OIMCNSION  NW(IS) 

DIMENSION  FILT(SOO).  TRNRD(»,lS) 

OIMCNSION  ACROa A ( 30 ) . ACR020( 30 ) , ACRQ3C ! 30 ) . ACO 3 A I ( 30 ) . AC03A2 ( 30 ) 
COMMON/  /WA VE( «0.  IS),  rmo.18),  fiST(500.tO),VNUtSCO).AlAM(SOO) 
COMMON/A TM/V IS, IMP, DP . RANGE 
1  REaCM  5,910 )  NF,  NEW.  I  FT ,  TEMP.  (PRINT.  NLOW 
WRITE  (9.915)  NF,  NEW,  IFT ,  TEMP.  (PRINT,  NLOW 
IP(NF  ,QT.  0)  iiFIL  *  NF 


Fit 
FIL 
FIL 
FIL 
FIL 
FIL 
Ftl 
HI 
FIL 
FIL 
FIL 
FIL 
F 1 1 
Ftl 
Fll 
F|(, 
Fll 
FIL 
FIL 
FIL 


100 

105 

110 

115 

130 

135 

130 

13S 

1A0 

IAS 

150 

155 

160 

16S 

170 

17S 

180 

IBS 

190 

195 

300 

305 

310 

315 

330 

335 

330 

235 

340 

345 

350 

353 

330 

365 

370 

375 

380 

385 

390 

395 

300 

30S 

310 

315 

330 

33S 

330 

339 

340 
345 
350 
35$ 
360 
303 
370 
3T9 
3B0 
3»5 
300 


188 


•I 


* 


IF(NF  ,EQ.  0)  do  TO  140 
IF(NF  .LT.  0)  GO  TO  80! 

DO  120  L»1  ,NFIL 

READ (5, 920)  (10F|L( I . L) . l«1 ,5) ,  KODE(L),  IFWV(L),  NW(L) 

NT  ■  NW(L) 

R£A0(5,.)  (NAVE(K. L) ,  FF(K.l),  K-1 .NT) 

IF( JFKV(l) .E0.1 )  CO  TO  50 

KBITS  (6,930)  (IDFIL(I.L),  1.1,5),  KOOE(L),  IFNV(L).  Mwah 
♦  (RAVEtK , L ) .  FF(K.L),  K.1.WT) 

C 

C  CONVERT  FROM  WAVELENGTH  TO  WAVENUMPER  IF  NECESSARY, 

C  REVERSE  ORDER  OF  FILTER  FUNCTIONS  AND  WAVENUMBERS  TO  BE 

C  COMPATIBLE  WITH  LQNTRAN. 

C 

CALL  WAVEN(WAVE( 1 , L) ,  FF(I.L).NT) 

SO  CONI INUE 

WRITE  (6,940)  tlOFIL(I.L),  '.1,5),  KOOE(L).  IFWV(L).  NW(L), 
♦(WAVE(K.L),  FF(W,L),  4.1, NT) 


120  CONTINUE 

C  IF  NEW  GE  1  USE  PRECEDING  LQNTRAN  DATA  READ 

140  1F(NEW  .GE,  1)  REWIND  7 
C 

c  ...............  READ  in  lowtran  data  file  ••••••»•••••«•*••*•« 

c 

C  READ  LOWTRAN  HEADER  CAROS 

C  HEAD  IN  LOWTRAN  OATA  FRE  FROM  TARE— WAVENUMBER  VS 

C  TRANSMITTANCE  FOR  THE  NINE  MOLECULAR  AMO  AEROSOL  COMPONENTS 


00  400  WK.l.NLQW 

c 

write  (8,949) 

READ  (7,050)  MODEL. I TYPE, IEM5CT ,Mt ,MJ ,M3, IM,NOPRT ,TBOUNO, SAL6 
WRITE  (8.950)  MODEL , I  TYPE. 1EMSCT .Ml .M2.M3. IM.NOPRT.TBOUNO.SALi 
READ  (7.952)  IHAEE , ISEASN, IVULCN, ICSTL, ICIR, IVSA, 

♦VIS ,N$5,NHH,RA|NRT 

WRITE  (9.952)  IMA2E. ISEASN, IVULCM. ICSTL. ICIR. I VSA, 

♦VIS ,W5$.WHH, RAINRT 
READ  (7.954)  AC«02A 
WRITE  (6.054)  ACRD2A 
REA 0  (7.954)  ACR02B 

WRITE  (6.994)  ACR029 
READ  (7,954)  ACSMC 
WRITE  (6,954)  ACROSC 

tF(MOaEt.NE.O)  READ  (7.9S8)  NI.H2. ANGLE, RANGE. BETA. RQ.ltN 

IF(NCOEL.NE.O)  WRITE  (6.958)  Ml , M3. ANGLE , RANGE . SETA. RO.LBN 

IF(MODEl.EO.O)  READ  (7.958)  HI ,P. T , DP, EH, WM, WO, RANGE 

IFtMUOEL.eO.O)  WRITE  (6.958)  HI.F.T.OP.RH.lW.WO.RANttE 

READ  (7.954)  ACD3A1 

WRITE  (6.954)  AC01A1 

RE 40  (7,954)  AC0JA2 

W«(T?  (6.054)  ACB3A5 

READ  (7,960)  V1.V2.0V 

WRITE  (6,980)  V1.va.0V 

READ  (7,963)  IRPT 

WRITE  (6.96a)  IRPT 

READ  (7,963)  RAIN. CIRRUS 

MR  *  IMT((va  “  VI) /OV )  *  1 

:f(|*«i«t.lt.io)  go  to  us 

IF( lEWJCT.EO.O)  WRITE  (6,9*8)  RASN.CIIUUS 


FIL 

395 

Fit 

400 

FIL 

405 

fil 

410 

FIL 

415 

FIL 

430 

fil 

425 

FIL 

430 

FIL 

435 

FIL 

440 

FIL 

445 

FIL 

450 

FIL 

455 

FIL 

460 

FIL 

465 

FIL 

470 

fil 

475 

FIL 

480 

FIL 

485 

FIL 

490 

FIL 

495 

FU 

500 

Fil 

805 

FIL 

510 

FIL 

515 

FIL 

520 

FU 

535 

FIL 

530 

FU 

535 

FU 

540 

FU 

545 

FU 

550 

FU 

585 

FU 

560 

FU 

565 

FU 

570 

FU 

575 

FU 

590 

FIL 

585 

FIL 

590 

FU 

59$ 

FU 

600 

»Iv 

605 

FU 

610 

FU 

615 

FU 

630 

FU 

63$ 

FU 

630 

FU 

83$ 

FU 

640 

FU 

64$ 

FU 

6$0 

FU 

655 

FU 

660 

FU 

*B 

ru 

670 

FU 

675 

FU 

680 

FU 

US 

180 


Oflftoniift  norm  nnoo  nnnn  onnonn 


IF(IEMSCT.GT.O)  WRITE  (6,969)  RAIN, CIRRUS 
145  CONTINUE 

00  1  SC-  J.1.NP 

lF(tEMSCr.EO.O)  READ  (7.964)  VNU(J),  AUM(d),  (RST(d, 1) , I«1 , 10) 
IF(miSCT.GT.O)  READ  (7,966)  VNU(U),  ALAM(U).  <RST(U,  l)  ,  I«1 , 10) 
IF ( tPRINT  .LT.  10)  GO  TO  ISO 

I F  ( lEMSCr,  EQ.O)  WRITE  (6. 965)  VNU(J),  ALAM(d),  (RST(  J,  I) ,  I»1 ,9  ) 
IF(IEHSCT.GT.O)  WRITE  (6,967)  YNU(U),  AlAM(J),  (RST(J.l) , 1.1 , 10) 
ISO  CONTINUE 

H*****«i»fH+  CALCULATE  WEIGHTED  TRANSMITTANCES  ♦44++v**+ 

THIS  PART  Of  THE  PROGRAM  NOW  LOOPS  OVER  EACH  OF  THE  LOWTRAN 
TRANSMl TTANCES ,  CALCULATING  WEIGHTED  TRANSMITANCES  FOR  EACH 
MOLECULAR  OR  AEROSOL  COMPONENT 
DO  30P  L«1 ,NF 
NT  •  NW(U 

FIND  Array  IN  lOWTRAH  WAVENUMBERS  WHICH  BRACKETS  THE  FILTER 
FUNCTION  WAVENUMBERS. 

CALL  8RACK(V1.  WAVE(t.L).  NT,  DV,  IVF(L),  IVL(L).  NVL(D) 

IA  *  IVF(L) 

IB  •  IVL(L) 

VF(U  -  VNU(IA) 

WRITE  (6,970)  KOOE(L).  (lOFIL(J.L).  J»1 ,9) 

IF( JPRINT.GE.9) 

♦WRITE  (6.973)  IA.  IB.  NVL(L>.  VNU(IA),  VNUtiB) 

INTERPOLATE  IN  input  filter  function  RESPONSES  TO  GET  FILTER 
FUNCTIONS  FOR  LOWTRAH  wavenumbers- 

CALL  INTL05(FF(I,L),  WAVEO.L),  NT.  F1LT,  VWJUA).  NVL(L)} 

CHECK  INTERPOLATED  FILTER  values 
IF  ANY  ACE  NEGATIVE  RESET  TO  EERO 

N.NYLtU 
00  310  1. 1, N 

IF(FUTU).lT.O)  FUT(t)*0. 

310  CONTINUE 

CALL  BiOFiL(FILT,NVL(L).B10F(L)) 

if  (IPRINT  .Lt.  5)  so  TO  380 
IF( lEUSCT.IO.O)  I«»t 
IF(IEMSCT.OY.O)  1EM0 

WRITE  (6,976)  tVNU(MJ,  FlLT(»-U»l).  KST(M,IE),  WUIA.IB) 

ISO  CONTINUE 

IF(UMSCT.LT.l)  00  TO  370 
IF(IS«$CT.EO.ai  00  TO  3*0 

UttiCTot  standard  emission  run 

INTEGRATE  THE  PATH  PaOIANCE  AKO  TOTAL  TRAMS. 

OR  (EVICT  *3  OiRECT  SOLAR 

integrate  the  transmitted  uraoiakce  ano  total  tranimi ttamce 

CALL  INTRaO(FILT  ,RST(  SA.I  J  .NVUD.OV.TAKROt  >  .L)) 
tR*J»0(».L)«T«N»0(?.Llf*tIOFU) 

IF(  iFt.CO.  1 )  CALL  ElkEOY<T|HP,FHS.HVL(L).VNUU*)) 


F1L  699 
FIL  695. 
FIL  700 
FIL  709 
FIL  710 
FIL  715 
FIL  730 
FIL  73B 
FU  730 
FIL  735 
FU  740 
FIL  745 
FIL  780 
FIL  755 
FU  709 
FIL  765 
FIL  770 
FU  778 
FIL  789 
FU  TBS 
FIL  TOO 
FU  798 
FU  BOO 


FU  809 
FU  610 
FU  819 
FU  639 
FU  >35 
FU  630 
FU  639 
'FU  840 
FU  645 
FU  690 
FU  659 
FU  660 
FU  669 
FU  670 
FU  673 
FIL  660 
FU  6*9 
FU  660 
FU  663 
FU  POO 
FU  603 
FU  610 
FU  *1* 
FU  *30 
FU  639 
FU  630 
FU  *39 
FU  S40 
FU  *45 
FU  *30 
FU  *31 


FU  633 
FIL  633 
FU  *39 
FU  *60 

fu  m » 


(jflfton noo  on  r>  n o 


IFdPRiNT.QE.S  .AND.  IFT.EQ.1)  WRITE  (6,975) 

IF( IPR1NT.GE.5  .AND.  IFT.E0.1) 

►WRITE  (6,375)  (  VNU(M)  ,FKT(M-!A+1 )  ,  RST(M.  IE)  .M-IA.  18) 

CALL  INTGST{FtLT.R$T(lA.10),NVL(L).TRNRO(9.L)) 

GO  TO  280 
260  CONTINUE 

IEMSCT-3  EMISSION  WITH  SCATTERING 

INTEGRATE  THE  PATH  RADIANCE, SCATTERED  RADIANCE. REFLECTED  RADIANC 
TOTAL  RA01ANCE  AND  TOTAL  TRANS. 

DO  265  I»1 ,7,2 

CALL  INTRAO(FILT,RST(lA,!),NVL(l),DV,TRNRD(l.L)) 
TRR0N0(l.L)-TRNR0(l.L)/aiGF(L) 

26$  CONTINUE 

I F( I  FT  10. t)  CALL  BLKBDV(TEMP,FILT ,NVL(L) . VNU(IA)) 

IF( 1PRINT.GE.5  .AND.  IFT.EQ.1)  WRITE  (6,975) 

IF( (PRINT. GS, 5  .AND.  IFT.E0.1) 

♦WRITE  (6.976)  (VNU(M).FlLT(U-IA*t).RST(H,lE).M*U,I6) 

CALL  INTQ«T(FJLT.RST(lA.»0),NVL(L),TRNS!r(9,L)) 

00  TO  390 
270  CONTINUE 

IEMSCT.0  STANDARD  TRANSMISSION  RUN  ' 

Integrate  all  molecules 

MERGE  WATER  CONTINUE  WITH  NAT  Eft  6ANO  TO  GET  AVERAGE  WATER 
TRANS-MI  FT  ANCE  iWAfAV).  MERGE  lit  GET  UNIFORMLY  UUEO 

a*ses  TRANSNIfTAKCE  (CASAVL; 

If(lFT.|o. i:  CftLi  t«i* ,  Cl  IT .  KVL  ( L ) .  VNU(  t  A 1 ) 

irMPSiJsT-.SS.il  TF'.EO.I)  WRITE  (8,975} 

iftiHUH-'Qli*'  AND.  “Ft.E9.li 
•«»»,?*  (VNUtA).riLTiU-?*4l),SST{M.I|>,M.U,Ig) 

••-Sau  cdsftrtrUt.  »5*.  nyuw.  u.  wluv,  omuvi 

-  00  2T5  i*t  ,9 

Call  5kTS3T(FIL».RST{)A.?j.  *¥j,(U .  TIUVRDU.L)) 

its  oosiinuE- 

Vfil’E  (6, 8771 

warn  LtS.5?Si  it,  TSNROfl.L).  1*1.9) 

TVLi*«?A"-^GA5AV» T9N«Jt)(  9  ,  L) «** IN»C  i  »»VS 

T2fC.est»*i3D(a.U‘T3N«0(2.L)»tSN*0{A.L)*TeNRO(»,L)*TluatO(«.U* 

'■  *  ?3N8Dt7.L)»»SNaO(U.L>*TRNRD(»,L)«*AIN»CI*«US 
WRITE  I6.9S3J  T?'TQ8.  TWOA,  RAIN,  CIRRUS 

IF{UG2EL.|G,9)  WRItE  (8.BM)  VIS,  T,  .IP.  »,  RANGE.  TEMP. 
»»SN8ttl.L).WAt*V.GASAV,  TRN#e<*.L).  AOCt ( L ) >  IIOPlLtl.L).  IM.S) 
IF(W30EL.Kt.0)  WRITE  (8.8*3)  VIS. TEWP. T*NEC{ I , v) .MAUV.OMAV, 
•T«NPMM9.U.Wa3«H).{»0HL(I.L). 1*1.5) 

GO  *0  300 
260  CONTINUE 

WRITE  («,«*») 

IF(WGittL.tO.e)  WRITE  I6.MAI  VIS, T.tlP.P, RANGE. TEMP, 
♦T*N03H.U,t«NIK)!9,lMGSttL).(lDFlLU.L).l*».5) 

IMWJOEIhS.O)  WRITE  (0.9S5j  VIS, TEMP. Taw«O(I,L),T»NE0(».L). 
»KOGE(Ll.tIOF|l(l,l).I«I.S| 

WRITE  15.5*9) 

IF(NSCtL.tO.O)  WAITS  (R.flU)  TRAONOO.V) 

IFjWi-itL-KF.O)  WRITS  (8.595)  TUL&NC(1.L) 

00  TO  200 


FIU 

970 

FIL 

975 

ML 

980 

FIL 

985 

FIL 

990 

FIL 

995 

FU 

1000 

ML 

1005 

E  FIL 

1010 

FIL 

1015 

FIL 

1030 

FIL 

1035 

ML 

1030 

FU 

103S 

Ml 

1040 

fil 

1045 

FU 

1050 

FU 

1055 

FU 

106a 

Ml 

1005 

FU 

1070 

FU 

1075 

ML 

1080 

FU 

1085 

ML 

1090 

ML 

1035 

FU 

1100 

FU 

1105 

FU 

1110 

FU 

1115 

FU 

1130 

Ml 

1135 

FU 

1130 

FU 

1135 

ML 

1140 

ML 

1145 

FU 

1150 

ml 

1 155 

ML 

1160 

FU 

ME* 

ML 

1170 

FU 

1175 

ML 

11*0 

ML 

•  1*5 

FU 

1  *90 

Ml 

1U5 

ML 

1309 

FU 

1305 

•'ll 

ISIS 

ML 

*315 

FU 

1320 

Ml 

*235 

»ll 

1330 

FIL 

1335 

Ml 

1140 

FU 

1345 

FU 

1350 

FU 

CSS 

FIL 

13(9 

101 


non  o on  o  o 


390  CONTINUE  FIL  1288 

WRITE  (8,988)  FIL  1370- 

IF(MODEL.EQ.O)  WRITE  (8,988)  VIS, T, OP, P, RANGE, TEMP,  ML  1378 

♦TRNRD(1.L),TRNRD(3,L),TRNRD(5,L),TRNRD(7,L),TRNRO(9,L),  ML  1280 

+K0D£(L).(IDML(I,L), 1-1,8)  ML  1388 

IF(MODEL.NE.O)  WRITE  (6,987)  VIS, TEMP, tRNRD(  1 , L)  ,TRNRD(3,L) ,  ML  1390 

•*TRNR0{$»  L) , TRNR0{7, L) , TRNRO(9, L) ,KOOE(L) , (IDFIL(X ,L) , 1-1 ,5)  FIL  1298 

WRITE  (6,989)  FIL  1300 

IF(NODEL.EO.O)  write  (6,996)  TRRDNOO ,L) ,TRRDN0(3,L) ,TRRONO(8,L) .  FIL  1308 

♦TRR0N0(7,l)  FIL  1310 

IF(MOOEL.NE.O)  WRITE  (6,997)  TRRONO(  1  ,L)  ,TRRONO(3,L)  ,TRRONO(S, L) ,  FIL  1^318 

♦TRR0N0(7,L)  FIL  1330 

300  CONTINUE  FIL  1338 

FIL  1330 

TEST  FOR  ENO-OF-FILE.  FIL  1338 

LOWTRAN  8  SEPARATES  FILES  WITH  A  -9999.  CODE  IN  THE  FIL  1340 

FIRST  WORD  (F7.0)  FOLLOWING  THE  LAST  RECORD  OF  DATA  OUTPUT.  FIL  1348 

FIL  1350 

READ  (7,999)  DUN  FIL  1358 

IF  (DUN, £0.-9999. )  GO  TO  400  FIL  1360 

310  WRITE  (6,998)  FIL  1368 

STOP  FIL  1370 

400  CONTINUE  FIL  1375 

GO  TO  1  FIL  1380 

801  CONTINUE  FIL  1385 

STOP  FIL  1390 

FIL  1395 

.... ......  FORMATS  FIL  1400 

FIL  1405 

910  FOR»AT(3I3,  F10.2,  318)  .  FU  1410 

915  FORMAT(3lH1  NUMBER  Of  MITERS.  ,  If,  3X,  4MNEW- .  15.  3*.  4HIFT.,  FIL  1415 

♦  I5.3X.  UHTEMPf  RATURE*  ,  F10,3,  3X,  7HIPRINT*  ,  I5,3X,6HNL3Wo  ,  IS)  FIL  1430 

930  FORMAT (5A4,  315)  ML  1438 

93'>  F0R“AT(//!H0.3X.13H  FILTER  NAME. lOX,5NFtLT#,2X,l?MIFWV  NW,  FIL  1L30 

♦/3X,5A4,2X,3I5/1X. 9(t4H  NAVEL  FF  )/9{ Fg. 3, F6.3) )  FIL  1438 

940  FORMAT ( 3X, 1JH  FILTER  NAME. 10X.5HF I LT* ,2x .8HIFWV  NW,  FIL  1440 

♦/3X.&A4.3».3!5/1A,9ir-»H  WAVEH  FF  )/9(F8. 1  ,F6.2))  FIL  1445 

845  FORMAT  (//I  HO.  SA .  10{4H«»*-) .  33N  LOWTRAH  CONTROL  0*1  A  ,  Ml  1450 

4  10(411..*.))  FIL  1485 

950  3ORM4T(.BIE,2fiO. 3)  Ml  1450 

953  F0>5MAT(6IS,4FlC.3)  FU  1485 

9S»  FORMAT (30A4)  F|L  14T0 

936  FORMAT (8Fi0.3i  )5 )  FU  1475 

986  FORMATOFiO.S.SFS- t.3StO,3,FI0.3)  FU  1480 

900  FORMAT (3F 1 0.3)  rH  1488 

963  FORMAT (15)  FU  1490 

963  F0PMAI(3F9,4)  FU  1493 

964  fORMAHFT  O.FU.a.  10F6.4.F12.4)  F|L  1500 

9S8  FORMAT  ( 2'A,  FT.  0.  FU .  3.9F9.4)  FU  ISOS 

986  FORMAT (F7.0,F8.3.9C9.3.F6.4)  Ml  1510 

967  FORMAT(3*,F/.3,F8.J,lP9EtO.J  OPFl0.4)  FU  1615 

908  FORMAT  {/6X.43M  LCWTRAH  TAPE  7  OUTPUT  TRANSMISSION  CASS,  FIL  1530 

*'3X ,  8MR41N.  , FD.4 . 2X, 7HC1RRU3. ,F3,4 ,  FU  1535 

♦/3X.S4H  WAV  EH  WAVil  TOT  TON  H3Q  C03*  03  ,  FU  1530 

♦43H  NJ  CONT  M30  CCNT  MOL  SCI  aCRCSOl  HNOS  /)  ML  1535 

9t#  FU8MaT(/5a,43H  LtiWtRAN  TAPE  T  OUTPUT  EMISSION  CASE  ,  FU  1540 

*/3x  ,5hRA  In.  ,  FB>  4 , 9X,  7HCISRUS. ,  F0.4 .  FU  1645 

♦/3X.56H  RAVEN  NAVEL  EM1TTI0  RADIANCE  SCATTER  RADIANCE  .  Ml  1850 

*61M  3N0  SIFL  RA3UNCS  TOTAL  BaOIANCe  INTEGRAL.  FU  IMS 


•MOH  TOT  TRANS/) 

970  FORMAT ( //1 8X,30HSU«MART  OF  CALCULATIONS  WITH  .7HFJLTEM,  13, 

♦  ax,  12HFILTER  NAME  ,  5A4/) 

#72  FORMAT (2X,  15H  IVF,  IVL,  NVL-,  318,  2X, 

+24HL0WTRAN  WAVENUMBERS  FROM.  F10.2.  2X,  2HT0,  F10.2. 
/30X.41HFILTER  RESPONSES  AND  TOTAL  TRANSMITTANCES/) 

#75  FORMAT (/30X.42HF I LTER  RESPONSES  WITH  BLACKBOOY  EMISSIVITV/J 
#78  FORMAT(  IX,  5(25HWAVE  RESP  T  ,1X),  / 

♦  5(F7.0,  1PE9.2,  0PF7-3.3X)) 

977  FORMAT (//36X.39H  SENSOR  WEIGHTED  AVERAGE  TRANSMITTANCES, 

+/21X.9HT0T  TRANS, 12H  H20  BAND  ,9H  C02  ,9H  OZONE  , 

♦2X.9H  N2  CONT  ,2X,9HH20  CONT  ,9H  MOL  SCT  ,2X,#HAER  TRANS, 

♦9H  HN03  ) 

978  FORMAT( 21 H  CONSTITUENT  TRANS.*,  9(13,  IX,  F5.3.1H,)) 

980  FORMAT(2X,  7H  T2T09*,  F6.3,  4X,  BHTWQA*  ,  F6.3,4X,7HTRAIN«  ,F6.3, 

♦  4X.9HTCIRRUS*  , F8.3) 

982  FORMAT (/41H  VIS  T  OP  P  RANGE  BBTEMP  , 

♦32HTTOT  TH20  TGAS  TAER  FILT*  NAME,  /, 

♦F5. 1 i  2F6.1,  F6.0,  F10.3,  F6.0,  2FS.3,1X,2F5.3.  15,  5A4) 

983  FORMAT (/49H  VIS  B8TEMP  TTOT  TH20  TGAS  TAER  FILT#  NAME,/, 
♦3X.FS.1,1X,Fa.0,4F5.3,1X,I5.SA4) 

984  FORMAT (/41H  VIS  T  OP  P  RANGE  BBTEMP, 

♦32H  EMIT  RAO  TOT  TRNS  FILT*  NAME, 


FIL  1558 
FtL  1580 
FIL  1565 
FIL  1570 
FIL  1575 
Fit  1580 
FIL  1585 
FIL  1590 
FIL  1595 
FIL  1500 
FIL  1605 
FIL  1610 
FIL  1615 
FIL  1620 
FIL  1625 
FIL  1630 
FIL  1635 
FIL  1640 
FIL  1645 
FIL  1650 
FIL  1655 
FIL  1660 
FIL  1665 


♦/.FS.1 ,2F8.1,F6.0,F10.3,F6.0,1PE10.3,OPF1Q.3,IS,5A4)  FIL  1670 

983  FORMAT (/45H  VIS  BBTEMP  EMIT  RAO  TOT  TRNS  FILT*  NAME,  FIL  1675 

♦/,FS.1,1X,F3.0,1PE10.3.0PF10.3,I5,5A4)  Fit  1S80 

908  F0RMAT(/41H  VIS  T  OP  P  RANGE  BBTEMP,  FIL  1685 

♦82M  EMIT  RAO  SCAT  RAO  REFl  RAD  TOT  RAO  TOT  TRNS  FILT*  NAME. FIL  1690 


♦/.F5.1 ,aF6.I,F6.0.Fi0.3,F6.0.1P4£10.3.0PF10.3.I5,5*4) 

BBT  FGRMAT(/13H  VIS  BBTEMP, 

♦82H  EMIT  RAD  SCAT  RAO  REFl  GAO  TOT  RH-  TOT  TRNS  FILT* 
♦/,FS. 1 . IX, F8.0.1P4E1 0.3,0PM 0.3. 15. 3A4) 

986  FORMAT ( //OX, 38H  SENSOR  WEIGHTED  INfEGRATF,0  RADIANCES  ) 

889  FORMAT (//ISX , 2SN  M.LTSR  NORMALIZED  RADIANCES) 

994  FORMAT (/41X.3H  EMIT  RAO ,/ ,41 X, 1PE1 0 .3) 

995  F0R*:AT(/18T.9M  EMIT  RAO,/  I3X.1PE10.3) 

990  FORMAT (/41X.39M  EMIT  RAO  SCAT  RAO  REFl  RAO  TOT  RAO, 

♦/  ,4*X .  IP4E 10.3) 

#97  FORMAT  </,iaX,?9M  EMIT  RAD  SCAT  RAD  REFL  RAD  TOT  RAO, 

+/ ,  t3.t ,  1  P4E10.3) 

993  FORMAT  (Jen  ERROR-END  OF  FUE  NOT  ENCOUNTERED) 

#99  FORMAT! F7.0) 

END 


FIL  1695 
FIL  1T00 
NAME, FIL  17CS 
FIL  1710 
FK  1715 
FIL  1720 
FIL  1725 
FIL  1730 
FIL  1735 
FIL  1740 
FIL  1749 
FIS.  1750 
Fit  1755 
FIL  17P0 
FIL  1789 


Iu3 
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subroutine  INTGRY(F,  t-  n.  TRANS) 

THIS  SUBROUTINE  COMPUTES  A  TRAPE20IDAL.  INTEGRATION,  WITH 
FUNCTION  »F»  BEING  INTEGRATED  ALONG  THE  *T*  AXIS. 

OIWENSION  F(N),  T{N) 

TSUM  ■  ( (F(1 )*T( 1 )  )  ♦  ( F(N)*T{N) ) )/2.0 

SUN  .(F(1)  ♦  F(N))/2.0 

NUN-N-1 

DO  200  1*2, NUN 

TSUN  *  TSUN  ♦  F(I)«T(I} 

SUM  •  SUM  ♦  F ( I ) 

200  CONTINUE 

TRANS  .  TSUM/SUM 

RETURN 

ENO 


INT  100 
INT  10S 
INT  110 
INT  115 
INT  120 
INT  125 
INT  130 
INT  135 
INT  140 
INT  145 
INT  150 
INT  155 
INT  160 
INT  IBS 
INT  170 
INT  175 


SUBROUTINE  INTRA0(F,T,N,DV, TRANS) 

THIS  SUBROUTINE  PERFORMS  AN  INTEGRATION  FOR  F( FILTER  FUNCTION) 
AND  T(RAOIANCE)  ALONG  THE  T  AXIS 

DIMENSION  F(N),T(N) 

R5UM"( (F(1)*T(i))*{F(N)*T(N)))/2.0 
NUMaN-1 

DO  200  1-2, NUN 
RSU***R5UM»F(  l )*T( 1) 

200  CONTINUE 

TRANS*RSUM*OV 

RETURN 

ENO 


IRO  100 
IRQ  105 
IRO  110 
IRO  115 
IRO  120 
IRO  125 
IRO  130 
IRQ  135 
IRO  140 
IRO  145 
IRO  ISO 
IRQ  153 
IRO  1B0 
IRO  IBS 


SUBROUTINE  BIOFtHF.N.BIO) 

BIG 

100 

c?c 

BIO 

105 

ccc 

ROUTINE  To  CHOOSE  LARGEST  FILTER  VALUE 

BIO 

110 

ccc 

TO  AFPLV  TO  NORMALIZATION  OF  RADIANCE  RESULT 

•10 

ns 

ccc 

obtained  from  subroutine  intrad 

BIG 

120 

CCC 

»IG 

125 

DIMENSION  F(H) 

BIO 

ISC- 

BIG»I .01-14 

610 

125 

00  t«I.N 

•to 

140 

tP(Ftl)  .or.  BIG)  BIG*PU) 

910 

14$ 

IQ  CONTINUE 

BIO 

ISO 

return 

BIG 

IS? 

ENO 

BIG 

IBO 

m 


subroutine  INTLOO(XA,  ya,  na,  xb,  YB,  NB) 

I  LG 

100 

c 

I  LG 

105 

c 

THIS  TAKES  A  SET  OF  DATA  POINTS  XA(I)  VS  YA(I)  (1-1, ...NA) 

1LG 

110 

c 

and  given  ANOTHER  SET  of  Y  values:  YB(!)  ,  U-1....NB 

I  LG 

115 

c 

FINDS  the  COR8ESPQNO I NO  X  VALUES:  XB(J). 

I  LG 

120 

c 

I  LG 

125 

c 

INTERPOLATES  UNDER  THE  ASSUMPTION:  X  .  XO»EXP(-Y/H) 

I  LG 

130 

c 

I  LG 

135 

c 

NOTE:  MUST  HAVE  YA(1)  .IE.  YB(1)«  YA(NA)  .OE.  Y6(NB) 

I  LG 

140 

c 

WHERE  THE  Y'S  ARE  IN  ASCENDING  ORDER 

I  LG 

145 

c 

I  LG 

150 

DIMENSION  XA(NA),  YA(NA),  XB(NB),  YB(NB) 

1LQ 

155 

c 

I  LG 

180 

I  -  1 

I  LG 

185 

DO  50  J  *  1  ,NB 

I  LG 

170 

S 

IF(YB(d)-YA(I)  )  20,  40.  10 

I  LG 

175 

to 

1F(1  . EO.  NA)  00  TO  25 

I  LG 

180 

I  «  I  +  1 

I  LG 

165 

JF(Y8(U)  .OT.  YA( I )  )  00  TO  5 

ilq 

190 

GO  TO  25 

IlQ 

195 

20 

IF( I  .EO.  1)1-2 

I  LG 

200 

25 

11  •  I  -  1 

ILQ 

205 

IF<XA(1)*XA(II)  .LE.  0.  )  GO  TO  30 

I  LG 

210 

Z  .  XA(|)/XA(U) 

UQ 

215 

1F(  A8SII-1.)  .LT.  0.1  )  GO  TO  30 

I  LG 

220 

H  •  (YA(I)  -YA{II)  )/AL0G(2) 

I  LG 

235 

XB(J)  ■  XA(H).EXP(  (YB(d)-YA(II)  )/H) 

ILQ 

230 

GO  TO  50 

UG 

235 

30 

XB(d)  -  XA(II)  ♦  (XA(I)-XA(II)  )-(YB(d)-YA( II)  )/(VA(X)-V*(U>  ) 

ILQ 

240 

GO  TO  SO 

ILQ 

245 

40 

XB(U)  •  XA(I) 

ILQ 

250 

1-1*1 

1LG 

255 

SO  CONTINUE 

ILQ 

280 

RETURN 

ILQ 

285 

END 

IU 

270 

SUBROUTINE  MAVlNIWAVe.  Ff  MM) 

DIMENSION  WAVE(NM),  Ff(NM) 

MVE 

too 

MVt 

108 

C 

MVE 

110 

C 

this  subroutine  converts  an  array  of  wavelengths  to 

MV? 

11B 

c 

AN  array  of  MAVCNUNURS,  REVERSING  THE  CAGE*  OF  THE  MAVEHUMBIRSMVE 

130 

c 

IN  THE  PROCESS. 

MVt 

155 

c 

MVE 

530 

M  •  NW/2 

MVE 

135 

00  MO  1*1  ,M 

MVE 

140 

K  >  NW-JW1 

MVE 

145 

FREQ  *  1.E4/MAVCO) 

MVE 

ISO 

WAVE (I)  »  1 . E4/WAVI(k) 

MVE 

155 

WAVE  IK)  .  FREQ 

MVE 

150 

FS  .  FF(I) 

MVE 

IBS 

FF(I|  .  FF(M) 

MVE 

170 

FF(H|  *  FS 

MV| 

17S 

300  CON t I HUE 

MVt 

180 

L  *  J»M 

MVE 

115 

|F(l  .LT.  NM)  GO  TO  300 

MVt 

1B3 

GO  TO  400 

MVt 

US 

300  MAVt(J)  •  1 » 14/WAVE ( I ) 

MVt 

300 

400  RETURN 

MVt 

sot 

END 

MVt 

210 

105 


SUBNOUTINE  BRACK (WVN1  •  VIN.  NW,  OV.  IFR5T ,  LAST,  NUMBER) 

BCK 

100 

DIMENSION  VIN(NW) 

BCK 

105 

c 

BCK 

110 

c 

PICKS  OUT  THE  APPROPRIATE  INDEXES  OF  A  LARGER  ARRAY 

BCK 

115 

c 

CORRESPONDING  TO  THE  POSITIONING  OF  A  SMALLER  ARRAY. 

BCK 

taa 

c 

BCK 

125 

IFRST  •  INT((VIN(1)  -  WVN* )/DV)  ♦  * 

BCK 

130 

LAST  *  I NT ( ( VIN(NW)  -  WVNO/OV)  ♦  2 

BCK 

135 

NUMBER  .  LAST  -  IFRST  ♦  1 

BCK 

140 

RETURN 

BCK 

t45 

ENO 

BCK 

180 

SUBROUTINE  BLKBOYITEMP,  PE ,  NW,  HAVE)  BLK 

C  BLK 

C  THIS  SUBROUTINE  MODIFIES  THg  FUNCTION  *FP»  BY  INCORPORATING  THE  81K 
C  ASSOCIATED  WAVENUMBER  ASSAY  AW  *  FIXED  8UCXWDY  TEMPERATURE  BLK 

C  INTO  TMg  gUCKSQOY  EQUATION,  BLK 

C  BLK 

DIMENSION  FF<NW),  WAV£{!TM)  BLK 

1F( TEMP. LS. 0.0)  00  TO  30*  BLK 

00  20C  l-l.NW  BLK 

FF(I)  .  |1.l90856E-ta*WAVE(l)«*3)/(8XF(l.438?9*WAVEU)/TEMP)  -  t.)BLK 
*  «FFII)  BLK 

aoo  continue  blk 

RETURN  BLK 

39 t  WRITE  (6.80* )  3LK 

801  format (/5X,*Sf*H0  BLACKBOOY  CALCULATION  AS  TEM*  IS  JERO  0*  LESS/.  BLK 

♦8X.32HT5MP  SHOULD  8L  IK  OFOREtS  KELVIN/)  BLK 

RETURN  BLK 

END  BLK 
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SUBROUTINE  CCMbTIF,  t.  «.  «*.  WAT.  6*5)  COM 

COM 

TMtS  SUBiOUTjxS  COMBINES  THE  MATER  A SO  MATES  CONTINUUM  TO  COM 

GET  THE  RATE#  TRANSMITTANCE.  COMBINES  THE  SA$  TRANSMIT t ANCtS  TCCCW 
GET  ThE  UNIFORMLY  MIXED  6«8S  TRAN*«I UANC* ,  THEN  INTEGRATE*  COM 
eo«H  transmit TAHtE*  win*  tue  filter  kesfu*ses  to-ubt  the  com 
weighted  gas  and  water  transmittance  com 


DIMENSION  F(500).  T(bOO.IO),  WTTiM{600),  GT*4(*00)  COM 

16  •  IA  *  N  COM 

00  300  L*Ia,  IB  COM 

U>L-U*i  COM 

WTRNUL)  *  Ttt,B)«t(L.a)  COM 

0T8NHL)  •  T(L,J)<t(L.4)*TU..6)«T(L.T)»T(L.B)  COM 

200  CGnT  INut  com 

CALL  lNTGRf(F,  WISH,  N.  MAT)  COB 

CALL  INTGRTtF.  GTRM,  M.  GAS)  COM 

RE TUBS  COM 

ENO  COM 
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